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SUMMARY 


A subsonic, linearized aerodynamic theory, wing design program for 
one or two planforms has been developed which uses a vortex lattice near- 
field model and a higher order panel method in the far field. The theoretical 
development of the wake model and its implementation in the vortex lattice 
design code are summarized in this report and sample results are given. 
Detailed program usage instructions, sample input and output data, and a 
program listing are presented in the Appendixes. 

The far-field wake model assumes a wake vortex sheet whose strength 
varies piecewise linearly in the spanwise direction. From this model 
analytical expressions for lift coefficient, induced drag coefficient, 
pitching moment coefficient, and bending moment coefficient have been 
developed. From these relationships a direct optimization scheme is used 
to determine the optimum wake vorticity distribution for minimum induced 
drag, subject to constraints on lift, and pitching or bending moment. 
Integration spanwise yields the bound circulation, which is interpolated 
in the near-field vortex lattice to obtain the design camber surface (s). 

INTRODUCTION 

The current computer program has been developed as a preliminary design 
tool for one or two interacting, subsonic lifting surfaces. Linearized 
aerodynamic theory is used, in the form of a vortex lattice representation 
of the wings in the near field, along with a piecewise linearly varying 



vortex sheet model of the undistorted wake. Summaries of the theoretical 
development and the overall code structure have been given in references 1, 
2 and 3, along with some sample .results . Reference 3 also describes a 
second design code currently under development, which includes viscous 
effects. In all cases, results from the current code have been compared 
to results for the same configuration obtained from an earlier design 
code (ref. 4), from which the current design program has been developed. 
This earlier design program, due to Lamar, uses a discrete vortex 
filament wake model, in contrast to the curren continuous wake vortex 
distribution. 

A detailed development of the current far-field wake model has been 
given in reference 5; this theory has been developed from the model 
formulated by Loth and Boyle (ref. 6). A separate, stand-alone, far-field 
drag minimization program has been written using the current wake model, 
which has been documented in a user's guide (ref. 7). For completeness, a 
summary of this theory is given herein, including some details of the 
development of expressions for pitching moment and bending moment coef- 
ficients which were not given in references 1 to 3. An example of the use 
of the current design code in the design of a wind-tunnel model of a trans- 
port wing fitted with winglets may be found in reference 8. Again, 
comparison is made between the current design and the design obtained 
using the earlier code of reference 4. 

Following the theoretical development, several sample results for 
configurations having one or two planforms are given. Comparison with 
results from the earlier code (ref. 4) generally shows a significant 
difference between designs only in the vicinity of a change in planform 
dihedral (see also refs. 1-3). Finally, the detailed user instructions, 
such as program limitations, input data preparation, output data, sample 
input and output, and the computer program listing are included in the 
Appendixes . 
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induced drag coefficient matrix [eqs. (24) and (25)] 

chordwise loading function parameter 

wing span 

bending moment 

reference wing chord 

span load 

wing root bending moment coefficient 
induced drag coefficient 
lift coefficient 
pitching moment coefficient 
pressure difference coefficient 

variables containing unknown wake vortex sheet strengths, ap- 
pearing in drag and bound circulation equations (3) and (10) 


influence coefficient integrals appearing in drag equation (3) 
Mach number 

total number of wake panels; total number of horseshoe 
vortices; normal force 

number of chordwise rows of horseshoe vortices [eqs. (15) and 
(16)] 

reference wing area 

local higher order wake panel coordinate 
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free- stream speed 
term in equation (14) 
streamwise body axis coordinate 
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x-coordinate of center of pressure 
shift of trim point 

terms containing x^ in equation for Cg [eq. (19)] 

spanwise body axis coordinate 

vertical body axis coordinate 

vertical separation between planforms 

wing wake vortex sheet strength 

bound circulation; horeshoe vortex strength 

bound circulation at outboard edge of wake panel i 

incidence angle 

local fractional spanwise coordinate 
wing sweep angle 
Lagrange multiplier 

local fractional chordwise coordinate 

density 

dihedral angle 

THEORETICAL DEVELOPMENT OF FAR-FIELD WAKE MODEL 


A summary of the theoretical development for the current code's far- 
field wake model is given in this section; further details may be found in 
references 1, 2 , and 5. The wake vortex sheet strength y is assumed to 
vary along the spanwise direction in a piecewise linear fashion: that is, 

on wake panel i. 
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where s^ is the semiwidth of panel i. The wake(s) are segmented into 
N flat panels, having a cosine size distribution, with small panels near 
wing tips or changes in wing dihedral. The Biot-Savart and Kutta-Joukowski 
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laws are applied so that the lift coefficient is a linear function of the 
Y values (ref. 5) : 
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where r^(-s^) is the bound circulation at the outboard edge of wake panel 
i (ref. 5). The induced drag coefficient on wake panel i due to panel 
j and its image is quadratic in the values: 
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where the G., G., and G. are linear functions of the unknown wake vortex 
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coefficients given in reference 5 . 

Expressions for the pitching moment coefficient and wing root bending 
moment coefficient are developed as follows. First, for the pitching 
moment coefficient, let equal the contribution to the pitching moment 

due to that portion of the wing located between the inboard and outboard 
edges of wake panel i (see fig. 1) . Then the local x-coordinate of the 
center of pressure may be written as 
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where x denotes the x-coordinate of the center of pressure at a y 
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corresponding to the outboard edge of wake panel i (fig. 1). Then the 
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Figure 1. Geometry definition for pitching moment derivation. 



where N(^^) is the local distribution of normal force. Using the Kutta 
Joukowski theorem results in 
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and from references 1, 2, and 5 : 
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and r^(-s^) equals the value of the bound circulation at -4^ = -s^. Sub- 
stitution of equations (7) and (10) into equation (6) and integration 
yield 
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or, as given in references 1 to 3, the total pitching moment coefficient 
is 
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The values are obtained through linear interpolation from the near- 

i 

field vortex lattice local chords and x values for the wing trailing 
edge, along with the user-specified NACA a series mean line value (ref. 4) 
As shown in figure 2, 
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For the bending moment coefficient calculated about the wing root 
[similar to eq. (5)] 
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where the y^, values correspond to coordinates of the center of wake 
panel i. Substitution for r(4^) from equation (10) and integration 
yield 
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EXACT LOADING, a = 0.6 
VORTEX LATTICE LOADING 


Figure 2. Example of vortex lattice representation of chordwise loading 
function; seven chordwise vortices. 
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Thus, the total wing root bending moment coefficient (refs. 1, 2, 3) 
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It must be noted that the computer program currently can impose a bending 
moment constraint only for an isolated wing. 

INDUCED DRAG MINIMIZATION METHOD 


The minimum induced drag, subject to constraints on C and either 

Li 

C or C„ is obtained using Lagrange multipliers; thus the function to 
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where explicit expressions for elements of [A] are given in references 
1 to 3 and 5. A system of N + 2 linear equations are written for the 
unknown values, Xj, and either X 2 or X 3 . For a trimmed configu- 

ration these equations are 
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For a single planform subject to a constraint on Cg, equation (27) is 
replaced by 
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As discussed in references 1 and 2 , special treatmeoit of these equations is 
necessary at the tip of each wing and in the summations containing 
in equations (2), (13), and (19). 


MEAN CAMBER DETERMINATION 


Once the far-field optimum wake vortex sheet strength distribution is 
obtained from equations (25) to (28) , the bound circulation at the wing 
trailing edge is obtained from equation (10) . This piecewise quadratic 
r/U distribution is linearly interpolated to obtain the chordwise sums of 
the r/U values for the near-field vortex lattice. The assumed chordwise 
loading value then determines the strengths of the individual horseshoe 
vortices. As in reference 4, this circulation distribution is related to 
the local surface slope by 



where the matrix [A] is the near-field vortex lattice aerodynamic influence 
coefficient matrix, as given in reference 4. 

Once the surface slope array at the vortex lattice control points 

is obtained from equation (29) , chordwise integration from the trailing 
edge forward is performed to obtain the nondimens ional camber surface 
distribution z/c, which contains the combined effects of incidence, twist, 
and camber. This integration process uses a cubic spline Interpolation 
between near-field slope values (ref. 4). Further details of the inte- 
gration procedure and discussion of its accuracy may be found in reference 
4, 
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SAMPLE RESULTS 

In this section, results for four sample configurations are discussed 
(see refs. 1-3 and 8 for presentation of design results for other geometries). 
In most instances the current design has been compared to results obtained 
for the same planform using the earlier design code of reference 4. Ap- 
pendix B contains an example of the computer program input data and the 
resultant output for one of the examples presented in the current report. 

Figure 3 presents optimum induced drag coefficient values for a close- 
coupled wing canard configuration, as shown at the top of the figure. This 
planform is identical to that shown as an example, first in reference 4, 
and later in references 1 to 3. Solutions are shown for various vertical 
separations z^, between wing and canard, and various trim points Ax. 

Initial results from references 1 to 3 showed that the current code 
(solid line) consistently yields a higher, more accurate, induced drag 
coefficient compared to values obtained from the original design code of 
reference 4 (dashed line). New results in figure 3 show that for small 
separations between canard and wing, | z^/ (b/2) | < 0.169, there is a smooth 
transition in the variation of with the shifted pitching moment 

center, Ax/(b/2), from a curve with a definite minimum value at 

large vertical separations to a relatively straight curve at zero separation 
between wing and canard. Although not shown, camber surface results for 
the two codes (present and ref. 4) are nearly identical for this planar 
configuration. 


As a second example, figure 4 shows the geometry of a high aspect 
ratio wing-strut configuration for a high-altitude reconnaissance airplane 
described in reference 9. Optimum spanload results are shown in figure 5 
for both design codes, while wing and strut camber surface results appear 
in figures 6 and 7, respectively. All results shown are for a shifted 
moment trim point. Ax = -0.9137, at the natural trim point for the 
configuration. The original code (ref. 4) shows large differences in 
spanload and camber surfaces depending on the number of wake unknowns. 
Major differences between the present design and that obtained using the 
earlier code of reference 4 occur for this configuration largely in the 
wing-strut junction on the wing, and over the entire strut span. This 
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Figure 5. Optimal spanload results for a wing-strut configuration at 
= 0.7; M = 0.65, a = 0.8, 14 x 18 vortex lattice, no gap 
at junction. Ax = -0.9137. 
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Figure 6. Optimal camber surface results for the wing of a wing-strut con- 
figuration at Cl = 0.7, M = 0.65, a = 0.8, 14 x 18 vortex lattice, 
no gap at junction. Ax = -0.9137. 





configuration appears to be one for which the results of reference 5 are 
not entirely satisfactory. 

Two additional 2-planform configurations are summarized in figures 8 
to 11. Figures 8 and 9 show the optimal spanload and camber surface 
results, respectively, for a high aspect ratio joined wing (ref. 10), 
while figures 10 and 11 display similar results for the basic joined wing 
fitted with upper and lower winglets. The respective planforms are shown 
in figures 8 and 10. Optimal* induced drag values for the joined wing are 
= 0.007386 for the present results and = 0.007338 for the code of 
reference 4. Differences between results of reference 4 and the current 
code are confined to the vicinity of the wing tips and on the winglets. 

A similar behavior was noted for a single transport-type wing fitted with 
winglets in references 1 to 3 and 8, where significant design differences 
were noted only on the winglet. 


CONCLUSIONS 


A subsonic, linear lifting surface, wing design code using a higher 
order panel method far-field wake model and a vortex lattice near-field 
model has been developed which can handle one or two planforms. A summary 
of the theoretical development of the far-field wake model has been given. 
Several sample results for a computer code which implements this wake 
model have been shown; these results differ from those for a code using a 
discrete vortex wake model in the vicinity of a wingtip, a change in 
planform dihedral, or near a point of intersection of the planform wakes. 
The spanloads and camber surface results obtained using the present code 
are believed to be superior to those of the original code for such 
complex configurations. Finally, use of the current program has been 
documented in a series of appendixes. 
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REF. 4 RESULTS 

Optimal camber surface results for a joined wing configuration 
with upper and lower winglets for Cl = 0.3, M = 0.8, a = 1.0, 
front planform, 14 x 14 vortex lattice. 
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APPENDIX A 


COMPUTER PROGRAM DESCRIPTION AND LIMITATIONS 



This appendix briefly describes the organization of the computer 
program written to implement the theory described in the main body of 
the report: known program limitations are also discussed. Input and 

output data are described in Appendix B and Appendix C, respectively, 
while a sample input deck and output are given in Appendix D. A complete 
listing of the program appears in Appendix E. 

This computer program has been written in FORTRAN IV and is currently 
operational on a Cyber 173 computer at the NASA/Langley Research Center 
CLaRC) . This computer uses approximately 15 decimal digits in all 
computations. As a result, some modifications to the code may be neces- 
sary to ensure correct execution on a computer system which uses a 
significantly different number of decimal digits. Specifically, 
tolerances set in the program in subroutines SNTAN and LOGS and in programs 
GEOMTRY and ZOCDETM may have to be changed. Further, double precision 
arithmetic in program WINGAL through subroutine LOGS will be required 
for machines using eight decimal digits. This would entail adding 
implicit double precision (A-H, 0-Z) statements in the main programs and 
all subroutines, as well as using double precision for all special 
functions such as DCOS, DSIN, DLOG, DATAN, DATAN2, DSQRT, DABS, DMINl, 
and DMAXl. Finally, some variable names should be changed in subroutines 
GCAL and CONCAL to be consistent with the implicit double precision 
statements. Use of double precision arithmetic seems to be of particular 
importance in the far-field drag minimization section of the code (program 
CIRCUL2) . 

The computer program consists of two separate job steps: First, 

program GEOMTRY is compiled and executed, and vortex lattice geometry 
results are written on a disk file designated TAPE25. Program GEOMTRY is 
nearly identical to the first portion of the program described in reference 
4. It is in this program that all configuration data are read from the 
input file. This program uses 51000 octal storage locations. Once the 
geometry has been defined and stored on disk, a second program written 
using three overlays is compiled. The zero overlay consists of a control- 
ling program WINGAL, and interpolation and linear equation solver sub- 
routines, WINGAL calls overlay 1 (program CIRCUL2) where the far-field 
drag minimization is performed followed by a call to overlay 2 (program 
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ZOCDETM) to determine the optimum mean camber surface. The program CIRCUL2 
and subroutines GAMCAL, DRACAL, CCAL, CONCAL, SNTAN, and LOGS are similar 
in many respects to the direct optimization program described in reference 
7. However, the earlier program was not written to allow solution by, 
direct optimization for the minimum drag for the two planform case. To 
allow the inclusion of constraints on pitching moment or wing root bending 
moment, as described in the main body of this report, required the direct 
optimization method implemented in CIRCUL2. The program ZOCDETO uses 
circulation strengths computed in CIRCUL2 to determine vortex lattice 
control point slopes, from which the optimal camber surfaces are determined 
by integration, using a cubic spline curve fit of the slopes between 
control points. This portion of the code also is essentially unchanged 
from that of reference 4, with the exception of additional output data, 
as discussed in Appendix C. (See reference 4 for some discussion of the 
accuracy of this integration process.) 

The known limitations of the program are now described. First, the 
program will not correctly execute with a wing dihedral value of exactly 
90°. Instead, it is necessary to use a dihedral near 90° (say (p - 87-88°) 
to approximate the effect of an endplate on the design. This same 
limitation also exists in both the original design code (ref. 4), and in 
the stand alone drag minimization code (ref. 7). 

Next, the current limitations on the number of unknowns are described. 
The total (both planforms) number of horseshoe vortices must be no greater 
than 400, while the total number of far-field wake panels must be no more 

than 50. This number of unknowns leads to accuracy comparable to that 

obtained using 200 to 250 discrete vortex unknowns (see ref. 5) . The 
user must also determine the chordwise number of horseshoe vortices and 
the spanwise numbers of both horseshoe vortices and wake panels which 
yield the best solution. Reference 4 discusses the recommended near- 
field lattice arrangement. The wake paneling is automatically done using 
a cosine size distribution, but the user must determine how many wake 
panels to assign to each planform and to each spanwise portion of a wing 

having constant <j> . (See Appendix B for more details of input data 

preparation. ) 
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Third, the code currently uses NASA/LaRC system subroutines such as 
INFOPLT for plotting which are not generally available outside the NASA 
computing system. Hence, plotting of the optimal camber surfaces or airfoil 
is not generally available. (See Appendix B for a description of the 
available plotting options.) 

Finally, as discussed in Appendix A of reference 7, for configurations 
with two planforms, or for configurations having wake shapes comprised of 
smoothly curved surfaces which are to be approximated by a series of flat 
wake panels, the following restrictions hold. The wakes cannot cross one 
another unless such wake crossing points occur at (to machine accuracy) 
edges of wake panels. The code automatically searches for such wake 
breakpoints having equal span (y) stations with z-coordinates within 10~^ 
of one another. The z-coordinate of the wake on the second planform is 
then adjusted to be equal to the corresponding z-coordinate on the first 
planform to insure exact intersection. However, other logic in program 
GEOMTRY necessitates that there be a slight change in planform dihedral 
on a planform across such wake intersections, as for example in the wing- 
strut-configuration discussed in this report. (See Appendix B for further 
discussion of preparation of input data.) If there are intersections of 
wakes away from wake panel edges, the statement "80 ENTERED" appears on 
the program output file; design results for such computer runs are of 
questionable accuracy and should not be utilized. This is because there 
is an apparent midrange singularity which occurs in the far-field 
influence coefficients which is not currently dealt with adequately 
(ref. 7). It must also be mentioned that this singularity may occur for 
curved wakes, even when there are no physical wake crossings, whenever 
the projection of the plane containing one wake panel intersects another 
wake panel away from the edges of the panel. Such projection inter- 
section points must be calculated to machine accuracy by the user, and 
input as planform breakpoints (see Appendix B) , across which there is a 
slight change in planform dihedral. 
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APPENDIX B 


INPUT DATA PREPARATION 



Introduction 


In this appendix instructions are given for the preparation of an 
input deck to use the computer program listed in Appendix E. An example 
input deck and the resultant output are given in Appendix D. Almost all 
user-supplied input, with the exception of those cards dealing with the 
wake paneling, is identical to input required for the original design 
code (discrete wake) described in reference 4. Thus, much of what follows 
is identical to the instructions given in reference 4. The required 
input data are broken into three groups: groups one and two are identical 

to input for the code described in reference 4, while group three 
contains input for the higher order wake model. 

Group One 

First the planform(s) geometry and reference values are input. All 
coordinates and sweep angles should be for the left half of the wing 
planform (negative y) . The axis system used is shown in the planform 
sketch of figure 3. Any consistent set of input units is acceptable; 
output will be in terras of the user-chosen input units. The x-axis is 
in the symmetry plane and points into the wind. The y-axis is positive 
pointing along the right wing, while the z-axis is positive downwards. All 
input cards in group one use a format of 8F10.6. 

Data on the first card are for the five named variables below, sup- 
plied in the following order: 

PLAN number of planforms for the configuration; 

use either 1 . or 2 . ; this sets the maximum 
value of the variable IT; 

TOTAL specify 1. for this field; 

GREF reference chord of the configuration; this 

chord is used to nondimensionalize the 
pitching moment terms and must be greater than 
zero ; 

SREF reference area of the configuration; this area 

is used to nondimensionalize the lift, drag, 
pitching moment, and root bending moment 
terms and must be greater than zero; and 
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XLOCTN 


location of pitching moment reference point 
(trim point) , if shifted from zero of coordinate 
system. 


The data required to define each planform are next provided by a set of 
cards. The initial card in each set contains the following data, for 
planform IT: 

AAN(IT) number of straight line segments used to define 

the left half of a wing planform excluding the 
foot chord; a maximum of 24 line segments may 
be used; 


XS(IT) x-location of the pivot for a variable sweep 

wing; use 0. for a fixed wing; the axis system 
used is shown in the inset to figure 3; 

YS(IT) y-location of the pivot; use 0. for a fixed wing; 

and 


RTCDHT(IT) 


vertical coordinate of the root chord of the 
particular planform being defined. 


The rest of this data set to define a planform requires one data card for 
each straight line segment used to define the left half of the planform 
[variable AAN(IT)]. Note that, as discussed in Appendix A, if there are 
wake intersections it will be necessary to break a straight portion of a 
planform leading or trailing edge into two pieces by adding a planform break- 
point at the y-coordinate of the wake intersection. All data described below 
are required on all except the last card of this set; the last card uses 
only the first two variables in the following set: 


XREG(I,IT) 


YREG(I, IT) 
DIH(I, IT) 


x-location of the Ith breakpoint; the first 
breakpoint is located at the intersection of 
the left wing leading edge with the root chord; 
the breakpoints are numbered in increasing 
order, for each intersection of lines, in a 
counterclockwise direction; 

y- location of the Ith breakpoint; 

dihedral angle (in degrees) in Y-Z plane of 
line from breakpoint I to breakpoint I+l, 
positive upward; along a streamwise line the 
dihedral angle is not defined, so use 0. for 
these lines; the dihedral angle must have the 
same sign and magnitude along the leading and 
trailing edges of a planform over the same 
spanwise extent; note also that there must be a 
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slight change in dihedral across a planform 
breakpoint corresponding to the intersection o£ 
wakes as discussed in Appendix A; and 

AMCD move code; this number indicates whether the line 

segment is on the movable panel of a variable- 
sweep wing; use 1. for a line which is fixed or 
2. for a line which is movable. 


Group Two 


Two sections of data form the group two data. The first section is a 
single card which gives the details of the particular configuration for which 
the mean camber surface is to be found. This card requires a format of 
5F5.1, 2F10.4. The second section is used to specify the fractional chord 
locations where the chord load changes from a constant to a linearly 
decreasing value. This card uses a format of 2F10.4. 


Section one data are to be supplied in the following order: 


CONFIG 

sew 

VIC 


MACH 

CLDES 

SA(1) 


arbitrary configuration number which may include 
up to four digits; 

number of chordwise horseshoe vortices to be used 
to represent the wing; a maximum of 20 may be 
used; do not set equal to zero; 

nominal number of spanwise rows at which chord- 
wise rows of horseshoe vortices will be located; 
the variable VIC must not result in more than 
50 chordwise rows of vortices to be used by the 
program to describe the left half of the configu- 
ration; in addition, the product of SCW and SSW 
(the actual number of spanwise rows) must not 
exceed 400; 

Mach number; this value should be less than the 
critical Mach number; if a value other zero is 
specified, the Prandtl-Glauert correction factor 
will be applied to all x-coordinates; 

design lift coefficient for the lifting system; 

variable sweep angle of the first planform; 
specify leading edge sweep angle (in degrees) 
for the first movable line adjacent to the 
fixed portion of the planform; for a fixed 
planform this quantity may be omitted; and 
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SAC2) variable sweep angle for the second planform. 

Section two data consist of two quantities: 

XCFW fractional chord location where the chord load 

changes from a constant value to a linearly 
varying value toward zero at the trailing edge 
of the first planform; this is the same as the 
symbol a used in the body of this report; 

XCFT fractional chord location where the chord load 

changes from a constant value to a linearly 
varying value, decreasing to zero at the trailing 
edge of the second planform; if only one planform 
is present, the variable XCFT should be omitted 
from the input data. 


Group Three 

Two sections of data form the group three data. The first section sets 
various control flags to define what constraints are desired, to specify 
whether thickness data is to be used to obtain airfoil coordinates, and to 
control various plot and card punch options. The second section determines 
the wake panel spacing and defines the desired bending moment coefficient 
or thickness distribution, if required. Both sections of data are in 
10F5.0 format, except for the thickness data, which is in 6F10.0 format. 

Section one data consists of a single card; values are to be supplied 
in the following order: 

FJFLAG flag to set the type of constraints to be 

imposed on the minimum drag design, as discussed 
in the theoretical development section of this 
report; the following values may be chosen: 

0. the configuration is to be constrained only 
as to the total lift generated; 

1. in addition to the constraint as to the 

total lift, the configuration is to be 

trimmed; 

2. in addition to the constraint as to the 

total lift, the configuration is to have a 

specified wing root bending moment coef- 
fient, as input in section two; this option 
is available for a single planform only; and 
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FJCTL 


flag to determine whether or not thickness data 
is to be input in section two, and to determine 
which plotting option is to be used; the following 
values may be specified: 

0. no thickness data is to be specified; no 
plotting is to be performed; 

1. no thickness data is to be specified; optimal 
chordwise mean line results at the centers 
of each chordwise row of horseshoe vortices 
will be plotted using NASA/LaRC computer 
system subroutine INFOPLT; 

2. thickness data is to be specified; optimal 
airfoil results obtained as the addition of 
the optimal mean camber surface results plus 
or minus the specified thickness distribution 
will be plotted using NASA/LaRC computer 
system subroutine INFOPLT. 

FSLP flag to determine whether or not a deck of optimal 

design control point slopes is to be punched; use 1. 
here to obtain a deck or 0. if no deck is desired. 

Section two data determines the wake panel spacing for each planform, as 
well as determining the wing root bending moment coefficient and thickness 
distribution, if required. The initial card contains the following data for 
planform IT: 

BRK(IT) number of breakpoints for the wake of planform 

IT; equal to number of flat portions of the wake of 
planform IT plus one; and 

TOT (IT) total number of wake panels for the wake of 

planform IT; this value connot exceed 50; for 
configurations having 2 planforms, the sum of 
TOT (IT) values for both planforms cannot exceed 
50. 

The second card determines the distribution of the TOT(IT) wake panels 
among the BRK(IT)-1 flat portions of the wake of planform IT; it consists 
of BRK(IT)-1 values; for planform IT: 

SEGG(I) number of cosine-spaced wake panels on Ith 

flat portion of wake of planform IT; first 
value specified will be the number of wake 
panels on the inboard portion of the wake; the 
sum of all SEGG(I) values on planform IT must 
equal TOT (IT). 
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The above data must be specified separately for both planforms for a 
two-planform configuration. Next, if FJFLAG=2., a single card follows to 
determine the required wing root bending moment : 

CRBM desired ratio of the design wing root bending 

moment coefficient, divided by the wing root 
bending moment coefficient of an elliptically 
loaded planar wing having the same span and 
lift coefficient as the designed configuration. 

Finally, if FJCTL=2., thickness data are to be specified beginning with 
a single card to fix the number of thickness values: 

FNZS number of specified percent chord and thickness 

values; the value specified must not exceed 50. 

Following the definition of FNZS are a series of cards to specify, first, 
the fractional chord stations where thickness data are to be given, followed 
by the fractional thickness values; only a single thickness distribution, 
valid for both planforms, may be specified. Thus, the first set of cards 
contains FNZS values, in 6F10.0 format: 

PCTX(I) fractional chordwise locations at which thickness 

data are specified; values must be specified in 
increasing order and must begin with 0.0 and 
end with 1.0. 

A set of FNZS thickness data values are given as the last set of cards: 

PCTZ(I) fractional airfoil thickness at corresponding 

PCTX(I) chord station. 

A sample input deck, as well as the resulting output appears in Appendix 
D. It is recommended that a minimum of 10 spanwise and 10 chordwise rows of 
horseshoe vortices be used (ref. 4). Use of at least 25 wake panels is also 
recommended. Further, some sensitivity studies as to the effects of vortex 
lattice arrangement and wake panel spacing are advisable (see refs. 4 and 
5 for further discussion) . 
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APPENDIX C 


OUTPUT DATA DESCRIPTION 



Introduction 


The printed results of this computer program appear in three sections : 
geometry data, aerodynamic data, and local elevation data. The geometry 
data follows the output format of the program of reference 4, while portions 
of the aerodynamic and local elevation data differ in format from those of 
reference 4. 


Geometric and Aerodynamic Data 

The geometry data are described in the order that they appear on the 
printout. The first group of data describes the planform(s), stating the 
number of straight line segments used to describe the planform perimeter (s) , 
the root-chord height, and the pivot position, followed by the breakpoints, 
sweep and dihedral angles and move codes. These listed data are all input 
data except for the sweep angles. 

The second group of data describes the particular planform for which 
the local elevation data are being computed. Included are the configuration 
number, the sweep position, a listing of the breakpoints of the wing planform 
Y} z) values, sweep and dihedral angles and move codes. These data are 
listed primarily for variable-sweep wings to provide a definition of the 
planform where the outer panel sweep differs from that of the reference 
planform. Also listed is information about the number of horseshoe vortices 
and the shift of the coordinate system origin, if any. 

The third group of data describes the wake geometry and far-field 
optimum drag solution. The wake breakpoint coordinates are listed, followed 
by the numbers of wake panels on each flat wake segment. Next the individual 
wake panel center coordinates (y, z, tj)) and wake panel semiwidth values are 
printed. Following the wake geometry data, the calculated induced velocities 
at the wake panel centers, followed by the optimal wake vortex sheet strength 
and bound circulation solution values and optimal induced drag are listed. 

The fourth group of data presents a detailed description of the vortex 
lattice used to represent the configuration. These data are listed in 
eight columns, where each line describes one elemental horseshoe vortex. The 
following information is presented for each panel or horseshoe vortex: 
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X c/4 
X 3C/4 

Y 

Z 

s 

c/4 SWEEP ANGLE 
DIHEDRAL ANGLE 
GAMMA/U AT CEDES 

The fifth group 

data: 

REF. CHORD 
C AVERAGE 

TRUE AREA 
REF. AREA 
B/2 

REF. AR 

TRUE AR 

MACH NUMBER 

The sixth group 
A1 

A2 


x-location of quarter-chord at midspan of horse- 
shoe vortex 

x-location of three-quarter-chord at midspan of 
horseshoe vortex; this is the x-location of the 
control point 

y- location of the midspan of the horseshoe 
vortex 

z -location of the midspan of the horseshoe vortex 

semiwidth of the horseshoe vortex 

sweep angle of the quarter-chord 

dihedral angle of the elemental panel 

r/U value at the design 

of data lists the following configuration reference 


reference chord 

average chord; equal to true planform area 
divided by true span 

true planform area 

reference area 

largest true semispan of the planforms listed 
in the second group of geometry data 

reference aspect ratio computed from reference 
planform area and true span 

true aspect ratio computed from true planform 
area and true span 

Mach number 

of data gives aerodynamic results: 

fractional chord location where chord load 
changes from a constant value to triangular on 
the first planform; this is the same as the 
symbol a used in the body of this paper 

fractional chord location where chord load 
changes from a constant value to triangular on 
the second planform; this is the same as the 
symbol a used in the body of this paper 
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CL*C 

c^c, span loading 

CL DESIGN 

Cj^^, design lift coefficient 

CL COMPUTED 

total Cl actually developed from the inter- 
polated spanwise bound circulations 

CM COMPUTED 

total Cjjj actually developed from the inter- 
polated spanwise bound circulations 

CD V 

Cp vortex drag coefficient based on the higher 

order far-field solution at C, , 

Ld 


Local Elevation Data 

This section 

presents the optimal local elevation solutions at varying 

spanwise stations. 

for up to two planforms. An explanation of the variables 

listed follows: 


Y 

spanwise location 

Y/B/2 

2y/b, fractional spanwise location based on semi- 
span of larger planform 

CHORD 

physical chord at y, projected into wing 
reference plane 

DZ/DX 

slope of local elevation curves along the chord 


These data are followed by the angle of attack of the local chord line with 
respect to the x-axis in the X-Z plane, followed by the following elevation 
data, for configurations where no thickness data have been specified: 


X/C 


fractional chordwise distance measured from 
the leading edge, positive aft 


Z/C 


(Z/C) COS(DIH) 


z/c, local elevation normalized by the chord 
measured with respect to elevation of the local 
trailing edge, positive down 

z/c cos (4)), local elevation normalized by the 
chord times cosine of the local dihedral angle; 
equal to local normalized elevation with respect 
to wing reference plane, positive down 


DELTA X 

(x/c) 

(chord) 

DELTA Z 

(z/c) 

(chord) 

(DLT Z) COS(DIH) 

(z/c) 

(chord) (cos <})) 
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If thickness data have been specified, columns of the above data will 
also contain the following: 


Z/C US COS(DIH) 


Z/C LS COS(DIH) 


Z US COSCDIH) 
Z LS COS(DIH) 


upper surface local elevation normalized by the 
chord times cosine of the local dihedral angle; 
equal to local normalized wing upper surface 
coordinate with respect to wing reference plane, 
positive down 

lower surface local elevation normalized by the 
chord times cosine of the local dihedral angle; 
equal to local normalized wing lower surface 
coordinate with respect to wing reference plane, 
positive down 


(z/c) 

(chord) 

(cos 

4>) 

upper 

surface 

(z/c) 

(chord) 

(cos 

4>) 

lower 

surface 
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APPENDIX D 


EXAMPLE OF INPUT AND OUTPUT DATA 


Sample input and output data are presented for the joined wing with 
winglet configuration presented in figures 10 and 11 of this report. Input 
data and a sketch of the input planform and wake shape appear on page 46, 
while the output data begins on page 47. 



INPUT DATA FOR JOINED WING FITTED WITH WINGLETS 


?. 

1 . 

2 . 

160 . 

6. 

0 . 

0 . 

5.3589839 

le. 

0 , 

15 . 

1 . 

2 , 

- 20 . 

- 75 , 

1 . 

1.0551885 

- 20.13588 

- 75 . 

1 . 

.3207539 

- 20.54352 

0 . 

1 . 

-.3292461 

- 20 , 5435 ? 

- 75 . 

1 . 

0 . 

- 20 . 

15 . 

1 . 

10 . 

0. 



6 . 

0 . 

0 . 

- 5.3589839 

- 10 . 

0 , 

- 15 . 

1 . 

0 . 

- 20 . 

75 . 

1 . 

- 0.9448115 

- 20.13588 

75 . 

1 . 

- 1 .6792461 

- 20.54352 

0 . 

1 . 

- 2.3292461 

- 20.54352 

75 . 

1 . 

- 2 . 

- 20 . 

- 15 , 

1 . 

-12. 

0 . 



2. 14, 

13 . .75 

.3 


1 . 

1 . 




0 . 1 . 


3 

25 

15 

1 0 

3 

25 

15 

10 
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PROGRAM OUTPUT DATA FOR JOINED WING FITTED WITH WINGLETS 


geometry data 


FIRST REFERFNCE PI AMFORM HAS 6 CURVES 

ROOT CHORD HEIGHT = 5,35898390 VARIABLE SWEEP PIVOT POSITION X(S) = Q.nnOOO 


break points for the reference flanform 


POINT 

y 

Y 

SWFFP 

DlHEnoftL 

HOVE 


REF 

REF 

angle 

ANGLE 

CODE 

1 

lE.onnno 

o.onono 

26.56505 

15.00000 

1 

2 

2,00000 

-20.00000 

81.61601 

-75.00000 

1 

3 

1 ,05519 

-20.1 3566 

60.96601 

-75.00000 

1 

4 

.32075 

-20,54352 

90.00000 

o.oooon 

1 

c; 

-.32925 

-20.54352 

31 ,20607 

-75.00000 

1 

6 

o.nnooo 

-20,00000 

26.56505 

15.00000 

1 

7 

10,00000 

0.00000 





SECOND REFERENCE PL^NFORR HAS 6 CURVES 

ROOT CHORD HEIGHT = -5.35898390 VARIABLE SWEEP PIVOT POSITION X (S) = 0.00000 


BREAK POINTS FOR THE REFERENCE PLANFORM 


)INT 

X 

V 

SWEEP 

dihedral 

MOVE 


REF 

REF 

AMGL E 

angle 

CODE 

1 

-lo.oftonn 

o.ooooo 

-26,56505 

-15.00000 

1 

2 

0 .00000 

-20,00000 

81 .81601 

75.00000 

1 

3 

-.94461 

-20.13568 

60.9660 1 

75.00000 

1 

4 

-1.670)25 

-20.54352 

90.00000 

0 . 00000 

1 

5 

-2.32925 

-20,54352 

31 .20607 

75.00000 

1 

6 

-E.OOonp 

-20.00000 

-26.56505 

-15.00000 

1 

7 

-12.00000 

0 . onoflO 







YCS) 


Y(S) 



configuration no 


2 


CURVE 1 15 SWfPT 2&. 56505 DEGREES ON PLANFORM 1 
CURVE 1 IS SWEPT -26.56505 DEGREES ON PLANFORM 2 

SREAK POINTS FOR THT5 CONFIGURATION 


POINT 

X 

Y 

7 

SWEEP 

DIHEDRAL 

MOVE 





angle 

ANGLE. 

CODE 

1 

12.00000 

o.cooon 

5.35698 

26.56505 

15,00000 

1 

2 

2.00000 

-20.00000 

,00000 

81 .61601 

-75.00000 

1 

3 

1.05519 

-20.13588 

.50711 

60.96801 

-75,00000 

1 

A 

.32075 

-20.54352 

2 . 028AA 

9O.O00OO 

0.00000 

1 

5 

-.32925 

-20.54352 

2.02844 

31.20607 

-75,00000 

1 

6 

0.00000 

-20.00000 

.00000 

26.56505 

15.00000 

1 

7 

1 0 . OOQOO 

O.OOOOD 

5.35896 







SECOND PLANFORM BREAK POINTS 



1 

-10.00000 

0.00000 

-5,35898 

-26.56505 

-15,00000 

1 

2 

0 . oonoo 

-20,00000 

-.oooon 

81 .81601 

75.00000 

1 

3 

-.9AA81 

-20,1 3568 

-.50711 

60.96801 

75,00000 

1 

A 

-1.67925 

-20*5'^352 

-2.02844 

90.00000 

0 , oonoo 

1 

5 

-2.32925 

-20.54352 

-2.0284A 

31 .20607 

75.nnnoo 

1 

6 

-2.00000 

-20*00000 

-.oooon 

-26.56505 

-15,00000 

1 

7 

-12,00000 

0.00000 

-5.35B98 





392 horseshoe vortices used 

CN THE left 

HALF OF THE CONFIGURATION 

PLANFORM 

total 

SPANWISE 

1 

196 

lA 

2 

196 



lA. horseshoe vortices in EACH CHCRD«ISE ROW 


X shift of origin = O.OOOO UNITS 


MTNTMCN field length = 63000 
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I 


1 . 

/ 




PLANFORM 1 

wake geometry 

Y Z PHI 

O.OOOOn 5.35898 15,00000 

-20.00000 .00000 -75,00000 

-20.54352 2.02844 0.00000 

NO OF WAKE VORTICTTV SEG'MEMTS = 25 

Wake vorttctty segs on wing segment no i= is 

WAKE VORTICITY segs QN WING SEGMENT NO 2= 10 

total PLANFORN peripheral lengths 22.80552 
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SEGMT 


Planform Z 


wake geometry 


Y 


Z PHI 


O.OOOOO 
- 20.00000 
- 20 .54352 


-5,35898 

.00000 

-2,02044 


15.00000 

75.00000 

0,00000 


MO OF WAKE VORTICITy 

SEGMENTS = 

25 


UAKE 

VORTICITY 5EGS ON 

WING SEGMENT 

Mo 

5= 15 

WAKE 

VORTICITy SEGS ON 

WING segment 

NO 

6= 10 


TOTAL PLANFORM PERIPHERAL LENGTH= 

22.80552 

NO 

Y 

Z 


PHI 

1 

-20,536870 

2.003625 


-1.308997 

2 

-20.510919 

1 .906775 


-1 .308997 

3 

-20,461557 

1.722556 


-1 .308997 

4 

-20.393617 

1.469001 


-1.308997 

5 

-20,313749 

1.170928 


-1 .308997 

6 

-20,229771 

« 85751 6 


-1.308997 

7 

-20,149903 

• 559444 


-1.308997 

8 

-20.081963 

.305888 


-1,308997 

9 

-20.032601 

.121669 


-1.308997 

1 0 

-2o ,006650 

.024820 


-1.308997 


(cont 'd) 
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PLANFORM 2 


WAKE GEOMETRY (Continued) 


SEGMENT NO. 

1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 
4 5 

46 

47 

48 

49 

50 


Y 

“19.945219 
-19.726695 
-19.292041 
-18.646020 
-17.795709 
-16.750424 
-15.521618 
-14.122754 
-12.569159 
-10.877853 
-9.067366 
-7.157536 
-5.169287 
-3 .124402 
-1 .045285 
-20.536870 
-20.510919 
-20.461557 
-20.393617 
-20.313749 
-20.229771 
-20.149902 
-20.081962 
-20.032601 
-20 ,006650 
-19.945219 
-19.726695 
-19.292041 
-18.646020 
-17,795709 
-16,750424 
-15.521618 
-14,122754 
-12.569159 
-10,877852 
-9.067366 
-7.157536 
-5.169287 
-3,1 24401 
-1.045285 


.014679 
.073232 
.189697 
.362798 
.590638 
.670721 
1 .199979 
1.574803 
1 .991088 
2.444272 
2.929390 
3.441128 
3 .973878 
4.521803 
5.078901 
-2.003625 
-1 .906775 
-1 ,722556 
-1.469000 
-1 . 170928 
-.657516 

- • 559444 

-.305888 
-.121669 
- .024820 
-.014673 
-.073232 
-.189697 
- .362798 
-.590638 
-.670721 
-1.199979 
-1.574803 
-1 .991068 
-2.444272 
-2.929390 
-3.441128 
-3.973878 
-4.521803 
-5.078901 


PHT 

.261799 

.261799 

.261799 
.261799 
.261799 
.261799 
.261799 
.261799 
.261799 
.261799 
.261799 
.261799 
.261799 
.261799 
.261799 
1 .308997 

1.306997 

1 .306997 
1 .308997 
1.308997 
1.308997 
1 .308997 
1.308997 

1.308997 

1 .308997 
-.261799 
-.261 799 
-.261799 
-.261799 
-.261799 
-.261 799 
-.261799 
-.261 799 
-.261799 
-.261799 
-.261799 
-.261799 
-.261799 
-.261 799 
-.261799 
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T 


SNN ( I ) 


1 

• 02 S 70 

2 

• 07457 

3 

.11615 

4 

.14635 

5 

. 16^^3 

6 

. 16223 


7 

•14635 

8 

.11615 

9 

.07457 

1 0 

.02570 

1 1 

.05671 

12 

.16952 

13 

.28047 

14 

.38834 

15 

.49196 

16 

.59019 

17 

.68196 

18 

.76625 

19 

.84215 

20 

.90882 

21 

.96553 

22 

1.01167 

2 3 

1 . 04672 

24 

1.07030 

25 

1 .08216 

?6 

.02570 

27 

.07457 

28 

.11615 

29 

.14635 

30 

.16223 

31 

.16223 

32 

.14635 

33 

.11615 

34 

.07457 

35 

.02570 

36 

. 05671 

37 

.16952 

38 

.28047 

39 

.38834 

40 

.49196 

41 

.59019 

42 

.66196 

43 

.76625 

44 

.64215 

45 

.90882 

4 6 

.96553 

47 

1.01167 

48 

1.04672 

49 

1.07030 

50 

1.06216 
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1 .^ 


I 

DOWNI//ASH 

W/COS (PHI) 

1 

.26354E-02 

. 10182E-01 

2 

.42277E-03 

. 16335E-0? 

3 

.20471E-02 

.79092E-02 

4 

.I8115E-02 

.699q0E-O2 

5 

, 19528E-02 

.75450E-02 

6 

. 16834E-02 

.72770E-02 

7 

.20239E-02 

.78199E-02 

8 

.16775E-02 

.64814E-02 

9 

. 19696E-02 

• 76099F-.02 

10 

.23813E-02 

•92005E-02 

1 1 

.42885E-02 

.44397E-02 

12 

.74524E-02 

.77153E-02 

1 3 

,7?964E-02 

•75538E-02 


.7l86?E-n2 

•74397E-02 

1 5 

.72206E-02 

.74753E-02 

1 6 

,72209E-02 

,74756E-n2 

17 

.72197E-02 

,74743E-n2 

18 

•72173E«02 

,747l9E-n2 

19 

.72l66E-fi2 

.7471 lE-02 

20 

.72159E-02 

.74705E-02 

21 

.7E160E-02 

. 74706^-0? 

22 

•72151E-02 

.74696F-02 

23 

.72167E-P2 

,74713E-02 

24 

.72095E-n2 

.74638E-na 

25 

.72408E-02 

.74963E-02 

26 

.25909E-02 

.lOOlOE-01 

27 

.42875E-03 

. 16565E-02 

28 

•20391E-0E 

.78784E-02 

29 

. 1 8250E-02 

.70514E-02 

30 

• 19174E-02 

.74083E-n2 

31 

. 19672E-02 

• 76009E-02 

32 

. 17630E-02 

.68117E-02 

33 

, 24998E-02 

.96587E-02 

34 

-.8567QE-03 

-.33104E-02 

35 

.25199E-01 

•97360E-01 

36 

- .84587E-03 

-.87571E-03 

37 

.81431E-02 

.84303E-02 

38 

,70l99E-02 

.7P675E-02 

39 

. 72548E-02 

•75107E-02 

40 

•72021E-02 

.74562F-02 

41 

.72270E-02 

•74819E-02 

42 

.72181E-02 

•74728E-02 

4 3 

.72181E-02 

. 74 727E-02 

44 

.72164E-02 

•7471 OE-02 

45 

.72160E-02 

.74706E-02 

46 

.72161E-02 

•74707E-02 

47 

•72150E-02 

•74695E-02 

48 

.72170E-02 

.74716E-02 

49 

.72090E-02 

.74633E-02 

50 

.72413E-02 

•74967E-02 
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SEGMT 

ROUND CIRC 

sheo strth 

fTA 

1 

0. 

.97090E+00 

.100005*01 

2 

.3U54E-01 

.241555+00 

,999355*00 

3 

,60112E-01 

,1467aE*00 

,997475*00 

u 

.88570E-01 

.98235E-01 

,9‘3455E*00 

S 

. l]4n6E*00 

.759T2E-01 

.990865*00 

6 

. 13622E + 00 

.607086-0 1 

,906775*00 

7 

. 1543.nE*0n 

.50696F-01 

.902605*00 

8 

, I6767E + 00 

,406925-01 

.979005*00 

9 

, 17f.38E + 0P 

,342695-01 

.976075*00 

10 

. 1 8042E + OO 

, 19976E-01 

.97419E+00 

1 1 

. 18416E + 0n 

, 12560F + 00 

.973545*00 

12 

. 19l36e*0n 

,12453F-0? 

.968215*00 

13 

.19249E*00 

.54515E-02 

.95227F+00 

14 

, 1 9675E + 00 

.974085-02 

.925&9E + 00 

15 

.20f01E+Op 

. l4roiE-01 

.8893gE*00 

16 

• 22n65'i*0p 

,197185-01 

.843115^00 

1 7 

.2393 3C + 0O 

.155465-01 

,787615*00 

16 

.259506*00 

. 1 44065-01 

.723485*00 

19 

.28n5TE*nn 

.129585-01 

.651435*00 

20 

,30in5E*0n 

. 1 1 357E-01 

.572235*00 

21 

.32022E*00 

.973585-02 

,486775*00 

22 

.33745E+0O 

.81 1 155-02 

.395965*00 

23 

.35221E+0O 

.648325-02 

, 300&4F+00 

24 

.363986*00 

.476195-02 

.2024 lE+00 

25 

.37230E*00 

.301 13E-02 

. 101765*00 

26 

0. 

.9T300F*no 

.100005*01 

27 

.31228E-01 

.242305*00 

,999355*00 

28 

.6027nE-m 

.1 47165*00 

,997475*00 

29 

.888l9>E-ni 

,966395-01 

.994555*00 

30 

. 1 144PE*00 

.761 28E-01 

.990865*00 

31 

. 13671E*0n 

.614285-01 

,966775*00 

32 

.154052*00 

.50356E-O1 

.902605*00 

33 

.160725*00 

,444265-01 

,979005*00 

34 

. 1 7691 E*0o 

.260735-01 

.976075*00 

35 

. ] 8486E*00 

.0O547F-O1 

,974195*00 

36 

.182272*00 

-.181435*00 

,973545*00 

37 

. 1 7274E + 00 

.133985-01 

.96621E+00 

36 

.175315*00 

, 1 76825-02 

.952275*00 

39 

. 17074E*OO 

,104745-01 

.925895*00 

40 

.18816E+00 

,138325-01 

.589385*00 

4 1 

.20273E*00 

.157525-01 

,8431 lE+OO 

42 

.22 1 1 9E +00 

.155115-01 

.767615*00 

43 

,24161E*00 

.144335-01 

.723485*00 

44 

.262596*00 

.129505-01 

.651435*00 


45 

.283065*00 

,113545-01 

,572235*00 

46 

.302225*00 

.973345-02 

.486775*00 

47 

.31 9455+00 

,gl094F-02 

,395905*00 

48 

.334215*00 

.648305-02 

.300845*00 

49 

,345985*00 

,475945-02 

.202415*00 

50 

.354305*00 

.301375-02 

. 1 01 765*00 

51 

.357560*00 

0. 

0. 


CD calculated using direct optimization linear SHSHEET DIST = .22412E-0a 
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FIRST PLANFORM 


HORSESHOE VORTEX DESCRIPTIONS 


y 

X 

Y 

Z 

S 

C/4 sweep 

DIHEDRAL 

GAMma/U at 

c /4 

30/4 




angle 

ANGLE 

CLDES= .3000 

.6’7201 

.64 009 

-2C. 33970 

1 .26778 

,78750 

60.67720 

-75, noonn 

,00845 

.60817 

.57625 

-20.33970 

1 .26778 

.78750 

53.45913 

- 75 ,onpnn 

,00845 

.54433 

.51241 

-20.33970 

! .26778 

.78750 

58.14646 

-75.00000 

.00B4S 

.48049 

.44557 

-20.33970 

1 .26778 

. 76750 

56,72931 

-75.00000 

.00B4P 

.41665 

.30473 

-20,33970 

1.26770 

.^0750 

55.19663 

-75.00000 

,00045 

.35Z81 

.32090 

-20.33970 

1 . 2 tTf & 

.70750 

53.53619 

-75,00000 

,00045 

.28895 

.25706 

-20.33970 

1 .2677g 

.70750 

51 .73447 

-75.00000 

,o 06 *B 

.22514 

.19322 

-20,31970 

1 .26778 

.75750 

49.77671 

-75. noonn 

,00045 

.16130 

.12938 

-20.33970 

1.26778 

.70750 

47.64693 

-75 ,00000 

.00045 

.09746 

. 0 6554 

-20,33970 

1 .26778 

.78750 

45.32515 

-75.POOO0 

.00045 

,03362 

.00170 

-20.33970 

1 .26778 

.78750 

42.80274 

-75.00000 

.00045 

-.03022 

-.06214 

-20.33970 

1 .26778 

.76750 

40,05299 

-75.00000 

.00B45 

-.09406 

-. 1 2596 

-20.33970 

1 .26778 

,76750 

37.0621 0 

-75.00000 

.00845 

-.15790 

-.18982 

-20 .33970 

1 .26778 

,76750 

33.01547 

-75 ,00000 

.008*= 

1 .49956 

1 .44355 

-20,06794 

.25356 

.26250 

B1 .68227 

-75.00000 

.0] 2*3 

^ .36753 

1 .33150 

-20,06794 

.25356 

.26250 

01 .10092 

-75 ,00000 

.01243 

1 .27547 

1.21945 

-20.06794 

.25356 

.26250 

00.4330] 

-75.00000 

.01243 

1 . 16342 

1 . 1 0739 

-20.06794 

.25356 

.26250 

79.65709 

-75,00000 

.01243 

1.05137 

.99534 

-20,06794 

.25356 

.26250 

7fi. 74705 

-75,00000 

.01243 

,93931 

.88329 

-20.06794 

.25356 

.26250 

77.66492 

-75,00000 

.01243 

.82726 

.77123 

-20.06794 

.25356 

.26250 

76.35571 

-75.00000 

.01243 

.71521 

.65918 

-20.06794 

.25356 

.26250 

74.74293 

-75 ,00000 

.01243 

.60315 

.54713 

-20,06794 

,25356 

.26250 

72.71089 

-75 .noonn 

.01243 

.491 10 

.4 35 07 

-20 .06794 

.25356 

.26250 

70,07951 

-75,00000 

.0124? 

.37905 

.32302 

-20.06794 

.25356 

.26250 

66.55590 

-75,00000 

.01243 

.26699 

.21096 

-20,06794 

.25356 

.26250 

61 .64062 

-75,00000 

.01243 

. 1 5494 

.09691 

-20,06794 

.25356 

.26250 

54,44693 

-75.00000 

.01243 

.04288 

-.01314 

-20.06794 

.25356 

.26250 

43.404no 

-75.00000 

,01243 

2,30791 

2.31646 

-19. 1S275 

.22702 

.67714 

26.56505 

15,00000 

.01396 

2.24505 

2.17362 

-19.15275 

.22702 

.677J4 

26,56505 

15.00000 

.01396 

2.10220 

2.03077 

-19.15275 

.22702 

.67714 

26.56505 

15,00000 

.01390 

1 .95934 

1 .66791 

-19.15275 

.22702 

.87714 

26.56505 

15.00000 

.01398 

1 .81646 

1 .74506 

-19.15275 

.2270? 

.67714 

26.56505 

15.00000 

,01398 

1 .67362 

1.60220 

-19,15275 

.22702 

.87714 

26.56505 

15.00000 

.01390 

1 .53077 

] .45934 

-19.15275 

.22702 

.87714 

26.56505 

15,00000 

.01398 

1 ,38791 

1.31648 

-19,15275 

.22702 

.87714 

26.56505 

15,00000 

.01398 

1 .2^505 

1 .17362 

-19.15275 

.23,702 

.87714 

26.56505 

15.00000 

.01398 

1 .1 0220 

1.03077 

-19.15275 

,??70? 

.07714 

26,56505 

15,00000 

.01398 

.95934 

.88791 

-19.15275 

.22702 

.07714 

26.56505 

15.00000 

.01398 

.81646 

.74505 

-19.15275 

, 22702 

,67714 

26,56505 

15.00000 

.01398 

.67362 

.60220 

-19.15275 

.?? 7 n? 

.87714 

26,56505 

15.00000 

,01390 

.53077 

.45934 

-19.1^275 

.22702 

.87714 

26.56505 

15,00000 

.01398 

3.23616 

3.16373 

-17,45826 

,68106 

.87714 

26.56505 

15,00000 

,01561 


(cont ’d) 
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FIRST PLANFORM 


HORSESHOE VORTEX DESCRIPTIONS (Continued) 


C/4 3C/4 Y Z 


3,09230 

3.020S7 

-17.45826 

.661 06 

2.9^9^^ 

2.87601 

-17.45826 

.68106 

2.e0»359 

2.73516 

-17.45826 

.681 06 

2.66373 

2.59230 

-17.45826 

.68106 

2.52087 

2.4/1044 

-1 7,45826 

.68106 

2. 3780 1 

2.30659 

-17.45826 

.68106 

2,23516 

2.I6373 

-17.45826 

.681 06 

2.09230 

2.02087 

-1 7.45626 

.66106 

] ,54944 

1 .87001 

-1 7.45826 

.66106 

1.60659 

1 .73516 

-17,45826 

.68106 

1.66373 

1 .59230 

-17.45826 

.68106 

1 .52087 

1 .4/1044 

-17.45826 

.68106 

1 .37801 

1 .30559 

-17.45826 

.68106 

4,08241 

4.01098 

-15.76376 

1.13510 

3.93955 

3.66812 

-15.76376 

1.13510 

3.79669 

3.72526 

-15.76376 

1.13510 

3,65383 

3.5824 1 

-15.76376 

1.13510 

J. 51098 

3.43955 

-15.76376 

1.13510 

3.35812 

3.29669 

-15.76376 

1,13510 

3.22526 

3.15383 

-15.76376 

1.13510 

3.00241 

3.01098 

-15.76376 

1,13510 

2.93955 

2.86812 

-15.76376 

1.13510 

2.79669 

2.72526 

-I*:, 76376 

1.13510 

2,65383 

2.56241 

-15.76376 

1.13510 

2.51098 

2.43955 

-15.76376 

1.13510 

2.366)2 

2.29669 

-15.76376 

1,13510 

2,22526 

2,15383 

-15.76376 

1.13510 

4.92965 

4.65922 

-14.06927 

1.58914 

4,78680 

4.71537 

-14.06927 

1 .58914 

4.64394 

4.57251 

-14.05927 

1 .58914 

4.50108 

4,42965 

-14.06927 

1 .56914 

4.35622 

4.28680 

-14.06927 

1 .58914 

4.21537 

4 . 1 4394 

-14.06927 

1 .58914 

4.07251 

4.00108 

-14 .06Q?7 

1 .59914 

3.92965 

3.65622 

-14.06927 

1 .58914 

3.78660 

3.71537 

-14.06927 

1 ,58914 

3.64394 

3.57251 

-14,06927 

1 .58914 

3.50106 

3.42965 

-14.06927 

1 .58914 

3.35622 

3.26680 

-14,06927 

1 .58914 

3.21537 

3.14394 

-14.06927 

1 .58914 

3.07251 

3.OOI08 

-14,06927 

1 .58914 

5.77690 

5.70547 

-12.37477 

2.04317 

5.63404 

5.56262 

-12.37477 

2.04317 

5.49119 

5.41976 

-12,37477 

2.04317 

5,34833 

5.27690 

-12.37477 

2,04317 

5.20547 

5.13404 

-12.37477 

2.04317 

5.06262 

4,99119 

-12.37477 

2.04317 

4,91976 

4.84833 

-12.37477 

2.04317 

4.77690 

4 . 70 54 7 

-12.37477 

2.04317 



C/4 


GAMMA/U 


SWEEP 

DIHEDRAL 

AT CLDES 

S 

ANGLE 

ANGLE 

= 0.3000 

.877)4 

26.56505 

15 . onoon 

.0156] 

.87714 

26,56505 

15.00000 

,01561 

.87714 

26.56505 

15.0000(1 

,01561 

.87714 

26.56505 

15,00000 

.01561 

.87714 

26.56505 

15.00000 

,01561 

.87714 

26.56505 

15.00000 

.01561 

.87714 

26.56505 

1 5,00000 

.01561 

.07714 

26.56505 

15,00000 

.01561 

.87714 

26.5<-505 

15.00000 

.01561 

.87714 

26.56505 

15,00000 

.01561 

.87714 

26.56505 

15.00000 

.0156! 

.87714 

26.56505 

15,00000 

.01561 

.87714 

26.56505 

15,00000 

.01561 

.8771 4 

26.56505 

15.00000 

.01754 

.87714 

26.56505 

15,00000 

.01754 

.87714 

26.56505 

15,00000 

.01754 

.87714 

26,56505 

15.00000 

.01754 

.87714 

26.56505 

1 5.00000 

.01754 

.87714 

26.56505 

15.00000 

.01754 

.8771 4 

26.56505 

15.00000 

,01754 

.87714 

26.56505 

15,00000 

.01754 

.87714 

26,56505 

15 ,00000 

,01754 

.87714 

26,56505 

15,00000 

.01754 

.87714 

26.56505 

15,00000 

.01754 

.87714 

26 . 568(15 

15,00000 

.01754 

.87714 

26 .56509 

15,00000 

.01754 

.87714 

26.5650^ 

15.00000 

.01754 

.87714 

26.56505 

15,00000 

.01935 

.87714 

26 .56505 

15,00000 

,01935 

.87714 

26,56505 

15.00000 

,01935 

.87714 

26,56505 

15,00000 

.01935 

.87714 

26.56505 

15.00000 

.01935 

.P7714 

26.56505 

15,00000 

.01935 

.87714 

26.56505 

15,00000 

.01935 

.87714 

26 ,56505 

15,00800 

,01935 

,87714 

26 . 56=^05 

15.00000 

.01035 

.87714 

26,56505 

15.00000 

.01035 

.07714 

26.56505 

15,00000 

.01935 

.87714 

26.56505 

15,00000 

.01935 

,87714 

26,56505 

15.00000 

.01935 

.87714 

26.56505 

15,00000 

.01935 

,87714 

26,56t^05 

15,00000 

.02095 

.87714 

26 , 56^05 

15,00000 

.02095 

.87714 

26,56505 

15.00000 

.02095 

.87714 

26.56905 

15,00000 

,02095 

.87714 

26.56505 

15.0OO00 

.02095 

.87714 

26.56505 

15.00000 

,02095 

.87716 

26.56505 

15.00000 

.02095 

.87714 

26.56505 

15,00000 

.02095 
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FIRST PLANFORM 


HORSESHOE VORTEX DESCRIPTIONS (Continued) 


X 


C/4 

3C/4 

Y 

Z 

4 ,63«04 

4 .56262 

-12,37477 

2,04317 

4.a91 ] 9 

4.41976 

-12.37477 

2,04317 

4,34033 

4.27690 

-12.37477 

2.04317 

4,20547 

4.13404 

-12.37477 

2,04317 

4,06262 

3.991 19 

-12.37477 

2.04317 

3.51976 

3.84833 

-12.37477 

2.04317 

6.62415 

6,55272 

-10.68027 

2.49721 

6.48129 

6.40986 

-10,68027 

2.49721 

6,33843 

6.26701 

-1 0.66027 

2.49721 

6,19558 

6.12415 

-10.68027 

2.49721 

6.05272 

5.98129 

-10,68027 

2.49721 

5.90986 

5,83643 

-10. 68027 

2.49721 

5.76701 

5.69550 

-10.68027 

2.49721 

5.62415 

5.55272 

-10.68027 

2.49721 

5,48129 

5.40986 

-10.68027 

2.49721 

5.33843 

5.26701 

-10.68027 

2,49721 

5.19558 

5.12415 

-in. 68027 

2.49721 

5.05272 

4.98129 

-10.68027 

2.49721 

4.90986 

4 ,83843 

-10.68027 

2.49721 

4.76701 

4.69556 

-10.68027 

2.49721 

7.47140 

7,39997 

-8.98576 

2.95125 

7 .32654 

7.25711 

-8.90578 

2.95125 

7 , 1 8566 

7.11425 

-6.90578 

2.95125 

7.04283 

6.971 AC 

-6.98578 

2,95125 

6.89997 

6.82854 

-6.99578 

2.95125 

6.7571 1 

6. 66566 

-3.90576 

2,95125 

6.61425 

6 ,5A263 

-6.98576 

2.95125 

6.47140 

6.39907 

-8,98578 

2.95125 

6.32854 

6 . 2571 1 

-8.98578 

2.95125 

6.1 8563 

6.1 1A25 

-6.98578 

2.95125 

6.04283 

5.97140 

-0.96578 

2.95125 

5 .09997 

5.02854 

-P ,99578 

2.95125 

5.75711 

5.68568 

-8,98570 

2,95125 

5.61425 

5.5A283 

-8.99578 

2.95125 

8.31664 

8,24722 

-7,291 28 

3.40529 

8.17579 

6. 1 0A36 

-7.29120 

3.40529 

8.03293 

7.96150 

-7.29126 

3.40529 

7,39007 

7,81664 

- 7.29128 

3.40529 

7.74722 

7,67579 

-7.29129 

3.40529 

7.60436 

7.53293 

-7.29128 

3.40529 

7,46150 

7,39007 

-7.29129 

3.40529 

7.31864 

7 ,24722 

-7.29128 

3.40529 

7,1 7579 

7.10436 

-7.29120 

3.40529 

7,03293 

6.96150 

-7.29128 

3,40529 

6.89007 

6.8186* 

-7.29128 

3.40529 

6.74722 

6.67579 

-7.291 25 

3.A0529 

6.60436 

6.53293 

-7.29126 

3,40529 

6.461S0 

6.39007 

-7.29125 

3.40529 

9.16589 

9.09446 

-5.59679 

3.85933 



C/4 


GAMMA/U 


SWEEP 

DIHEDRAL 

AT CLDES 

S 

ANGLE 

ANGLE 

= 0.3000 

,87714 

26.56505 

15.00000 

.02095 

.87714 

26,56505 

15,00000 

,02095 

.07714 

26,56505 

15.00000 

,02095 

.07714 

26.56505 

15.00000 

.02095 

,07714 

26,56505 

15,00000 

.02095 

.07714 

26.56505 

l=,onnoo 

.02095 

.07714 

26.56505 

15,00000 

.02234 

.077)4 

26.56505 

15,00000 

,02234 

.07714 

26.56505 

15.00000 

,02234 

.07714 

26.56505 

1'=, 00000 

,02234 

,07714 

26,56505 

15,00000 

.02234 

.07714 

26.56505 

15,00000 

,02234 

.07714 

26 ,56«;05 

15.00000 

.02234 

.07714 

26,56805 

15.00000 

.02234 

.07714 

26.5650'= 

15.00000 

.022J4 

.07714 

26.56=105 

15.00000 

.02234 

.07714 

26,56805 

15,00000 

, 02234 

.07714 

26.56805 

15,00000 

,02234 

.07714 

26,56505 

15,00000 

.02234 

.07714 

26.56505 

15.00000 

.02234 

.07714 

26,56505 

15,00000 

.02354 

.07714 

26,56505 

15,00000 

.02354 

.07714 

26 ,5650*= 

15.00000 

,02354 

.87714 

26 ,56505 

15,00000 

,02354 

.07714 

26. =6805 

15,00000 

.02354 

.0771 4 

26.56505 

15.00000 

.02354 

.07714 

26, = 6‘;o5 

15.00000 

.02354 

.07714 

26 ,‘=6505 

15.00000 

.0235* 

.077 1 4 

26.5650'= 

15,00000 

.02354 

.07714 

26.56505 

1 = .00000 

,02354 

.07714 

26.56505 

l=.cooon 

.02354 

.0.7714 

26.56‘=05 

15.00000 

,02354 

.07714 

26.56505 

15.00000 

. 02354 

.07714 

26.56505 

15,00000 

,02354 

.07714 

26,56505 

15.00000 

.02456 

,07714 

26.56505 

15.00000 

. 02456 

,07714 

26.5650'= 

T= .00000 

.02456 

.07714 

26,56505 

15,00000 

,02456 

.07714 

26 ,56505 

15.00000 

.02456 

.07714 

26,56505 

15.00000 

,02456 

,07714 

26, ‘=6505 

1 = .nnnon 

.02456 

.07714 

26.56505 

15,00000 

. 02456 

.07714 

26.56505 

15,00000 

,02456 

,07714 

26, = 6505 

1'=, 00000 

,024=6 

,07714 

26,56505 

15,00000 

,02456 

.07714 

26,56505 

15,00000 

,02456 

.87714 

26.56'=0‘= 

IS , OOOOO 

,02456 

.87714 

26.56505 

15,00000 

,02456 

.67714 

26,56505 

15,00000 

.02540 
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FIRST PLANFORM 


HORSESHOE VORTEX DESCRIPTIONS (Concluded) 

C/4 GAMMA/U 



X 




SWEEP 

DIHEDRAL 

AT CLDES 

C/4 

3C/4 

Y 

Z 

S 

ANGLE 

ANGLE 

=0.3000 

9.0?30A 

6.95161 

-5.59679 

3.65933 

.67714 

26,56505 

15.00000 

.02540 

8.B8018 

6.80675 

-5.59679 

3.05933 

.87714 

26,56505 

15,00000 

.02540 

8,73732 

6.66589 

-5,59679 

3,85933 

.87714 

26,56505 

15,00000 

.02640 

a.59<i46 

8.52304 

-5. ‘"9679 

3.65933 

.87714 

26,56505 

15.00000 

.02540 

6.45161 

8.38018 

-5. ‘='9679 

3,65933 

,87714 

26.56505 

15.00000 

.02540 

8,30875 

6.23732 

-5.59679 

3.85933 

.87714 

26,56505 

15.00000 

.02540 

8.1 6589 

B . 094 4 6 

-5.59679 

3.85933 

.87714 

26.56'=;05 

15,00000 

,02540 

8,02304 

7.95161 

•’5.59679 

3,85933 

.^7714 

26.56505 

15.00000 

.02540 

7.68018 

7.80875 

-5.59679 

3.85933 

.87714 

26. = 6505 

15.00000 

,02540 

7,73732 

7.66589 

-5.59679 

3,65933 

.87714 

26.56505 

15,00000 

,025^0 

7,59446 

7.62304 

-5.59679 

3,85933 

.87714 

26.56505 

1=. 00000 

.02540 

7.45161 

7.36016 

-5.59679 

3,85933 

."7714 

26.56505 

15.nonno 

,025*0 

7.30675 

7.23732 

-5.59679 

3.05933 

.87714 

26 .56505 

15.00000 

,025*0 

10.01314 

9.94171 

-3.90229 

4.31337 

,»7714 

26 .56505 

15,00000 

,02607 

9.87028 

9.79665 

-3,90229 

4,31337 

.87714 

26.56505 

15.00000 

.02607 

9.72743 

9.65600 

-3.90229 

4,31337 

.87714 

26.56505 

15.00000 

.02607 

9.58457 

9,51314 

-3.90229 

4.31337 

.87714 

26.56505 

15.00000 

.02607 

9.44171 

9.37028 

-3.90229 

4.31337 

.87714 

26,56505 

15.00000 

.02607 

9.29885 

9.P2743 

-3.90229 

4.31337 . 

.87714 

26.56505 

15,00000 

.02607 

9,1 5600 

9.08457 

-3.90229 

4 . 3 1 ’ 3 7 

.87714 

26.56505 

15.00000 

.02607 

9.01314 

8.94171 

-3.90229 

4,31337 

.87714 

26.56505 

1=. 00000 

.02607 

8.67028 

6.79865 

-3.90229 

4.31337 

.87714 

26.56505 

15,00000 

.02607 

6.72743 

8.65600 

-3.90229 

4,31337 

.87714 

26. =650= 

15.00000 

,02607 

8.58457 

6.51314 

-3.90229 

4,31337 

.87714 

26.56505 

15.00000 

.02607 

6.44171 

8.37028 

90229 

4.31337 

.87714 

26.56505 

15.00000 

.02607 

8.29865 

6.23743 

-3.90229 

4.31337 

.87714 

26 .=6505 

15.00nno 

,02607 

e. 1 5600 

8.0S457 

-3.90229 

4.31337 

.87714 

26.56=0= 

15,00060 

.02607 

1 0.86039 

10.78896 

-2.20780 

4.7674 1 

.87714 

26.56505 

15.00000 

.02656 

1 0 .71753 

10.64610 

-2.2O780 

4.76741 

.87714 

26 . = P«;05 

15.00000 

.02656 

1 0 .574 67 

10.50325 

-2.20780 

4,76741 

.87714 

26.5650= 

15.00000 

.02656 

1 0.43182 

10.36039 

-2.20780 

4,76741 

.87714 

26.56505 

l=.ooono 

.02656 

10.28696 

10.21753 

-2.20780 

4 .7674 1 

.87714 

26 ,=650= 

15.00000 

.02656 

10.14610 

1 0.07467 

-2,20780 

4.76741 

.87714 

26.56=05 

15.00000 

.02656 

10.00325 

9.93182 

-2.2O7P0 

4.76741 

.87714 

26.56505 

15.00000 

.02656 

9.66039 

9.78696 

-2,207Pn 

4.76741 

.87714 

26, =6=0= 

1= .00000 

,n?65f 

9.717S3 

9.64610 

-2. 207PO 

4.76741 

.87714 

26,56=05 

l=,onoon 

.026 = 6 

9.57467 

9.50325 

-2.207pn 

4.7674 1 

.87714 

26.56505 

15.00000 

.0265P 

9.431 82 

9.36039 

-2.207P0 

4.76741 

.87714 

26.56505 

1= .00000 

.02656 

9.28896 

9.21753 

-2.207P0 

4,76741 

.87714 

26. =6506 

1= .00000 

.026=6 

9.14610 

9.07467 

-2.20780 

4.76741 

.87714 

26,56=05 

15.00000 

.02656 

9.00325 

8.93162 

-2,20780 

4.76741 

.67714 

26. =6=05 

15.00000 

.02656 

1 1 .62415 

1 1 .55272 

-.68027 

5.17671 

.■'0427 

26. =6=0= 

l=.ooono 

.02875 

11.48129 

11 .40986 

-.68027 

5.1767] 

.70427 

26, =6=05 

15.00000 

.02675 

1 1 .33843 

T 1 .2670 ] 

-.68027 

5,1 7671 

.70427 

26,56=05 

15.00000 

.02675 

1 1 , 1 9558 

11,12415 

-.68027 

5 . 1 767 1 

.70427 

26. =6505 

1 = . Oonoo 

.02675 

1 1 .05272 

10.98129 

-.68027 

5,17671 

.70427 

26,5650= 

1 = . 00000 

.0267= 

10.90986 

10.83843 

-.68027 

5,17671 

.■'0427 

26.56=0= 

15.00000 

.02675 

10.76701 

10.69558 

-.68027 

5.17671 

.70427 

26 .=650= 

1 =. . 0 0 n 0 0 

.0267= 

10.62415 

10.55272 

-.68027 

5.17671 

.70427 

26.5658=' 

1 = . nnnnn 

.02675 

10.48129 

10.40966 

-.68027 

5.17671 

.70427 

26.56505 

15.00000 

.'02675 

10.33843 

10.2670] 

-.68027 

5.17671 

.70427 

26.56505 

15.00000 

.02675 

10.19558 

10.12415 

-.68027 

5 .1 7671 

,70427 

26.56505 

15.00000 

,0267= 

1 0.05272 

9,98129 

-.68027 

‘=, 17671 

.70427 

26.56505 

15.00000 

.02675 

9.90986 

9.83843 

-.68027 

5,17671 

.70427 

26.56505 

15.00000 

.02675 

9.76701 

9.69556 

-.68027 

5.17671 

,70427 

26.56505 

15.00000 

.02675 
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-1 ,32799 

- 1 .359511 

-20.33970 

-1.26778 

.78750 

60.67720 

75,00000 

.008*8 

-1 ,39183 

-1 .42375 

-20.33970 

-1.26778 

,70750 

59,45913 

75,00000 

,008*0 

-1 ,45^F7 

-1.48759 

-20.33970 

-1 .26778 

.78750 

58.14646 

75.00000 

,00048 

-1,519'^! 

-1.551*3 

-20.33970 

-1.26778 

.78750 

56.72931 

75,00000 

,00048 

-1 .‘=•0335 

-1 .61527 

-20.33970 

-1.26778 

.78750 

55.19663 

75,00000 

,00040 

-1 .6A719 

-1 .6791 n 

-20,33970 

-1.26778 

.78750 

53.53^19 

75.00000 

.00848 

-1 ,71102 

-1 .7429* 

-20.33970 

-1.26778 

.78750 

51,73447 

78,00000 

.008*8 

-1 .77486 

-1 .80678 

-20,33970 

-1.26778 

.78750 

49,77671 

75,00000 

,00848 

-1 ,83870 

-1.87062 

-20.33970 

-1.26778 

.78750 

47,64693 

75,00000 

.00846 

-1 .9025* 

-1 ,93446 

-20.33970 

-1 .26778 

.78750 

45.32615 

75.00000 

,00848 

-1 .96638 

-1 .99830 

-20.33970 

-1.26778 

.70750 

42.60274 

75,00000 

.00048 

-2.03022 

-2.06214 

-20,33970 

-1,26778 

.78750 

40.05299 

75,00000 

.00848 

-2.09406 

-2.12598 

-20,33970 

-1.26776 

.78750 

37.06210 

75,00000 

,00848 

-2.15790 

-2.18982 

-20.33970 

-1 .26776 

.76750 

33.61547 

7‘^, 00000 

.008*8 

-.5004c 

-.5564,5 

-20.0679* 

-.25356 

.26250 

61 .66227 

78,00000 

.012*8 

-.612*7 

-.66850 

-20,06794 

-.25356 

.26250 

61 , 10092 

75 ,00000 

,012*8 

-.72*53 

-.78055 

-20.0679* 

-.25356 

.26250 

80,43301 

75,00000 

.01248 

-.63650 

-.89261 

-20 ,06794 

-.25356 

,26250 

79,65789 

75,00000 

,012*8 

-.94663 

-1 ,00466 

-20,06794 

-.25356 

.26250 

78.74785 

7<= , 00000 

.01240 

-1 ,06069 

-1 . 1 1671 

-20,06794 

-.25356 

.26250 

77,66492 

7'= ,00000 

.012*8 

-1 .1 7274 . 

-1 .22877 

-20.06794 

-.25356 

.26250 

76.35571 

75.00000 

.012*6 

-1 .20479 

-1.34082 

-20,06794 

-.25356 

.26250 

74.74293 

7‘=,nonon 

, 0 1 2* 8 

-1 .39685 

-1.45287 

-20.0679* 

- .25356 

.26250 

72.71009 

75,00000 

,01248 

-1 .SOGSO 

-1 .56*93 

-2o ,06^94 

- .25356 

,26250 

70,07951 

75,00000 

,01248 

-1 .62095 

-1 .67698 

-?0 . 06794 

-.25356 

.26250 

66.55590 

75,00000 

.01 248 

-1 .7330] 

-1 ,7890* 

- 20.06794 

-.25356 

.26250 

61 ,64 062 

75,00000 

.01248 

-1 ,84506 

-1 .90109 

-20.0679* 

-.25356 

.26250 

54.44693 

75,00000 

.01240 

- 1.95712 

-2,01314 

- 20,06794 

-.25356 

.26250 

43.40*80 

75,00000 

,01248 

-.45934 

-.53077 

-19,15275 

- .22702 

.87714 

-26,56505 

-15,00000 

.01271 

-.60220 

- .67362 

- 19.15275 

-.22702 

.87714 

-26.56505 

-15,00000 

.01271 

-.74505 

-.61640 

-19.1 5275 

-.22702 

.87714 

-26,56505 

-15.00000 

.01271 

-.SS791 

-.95934 

-19.15275 

-.22702 

.87714 

-26.56505 

-I'^.noono 

.01271 

-1 .03077 

-1.1 0220 

-19.15275 

-.22702 

,8'^'^1* 

-26.56505 

-15,00000 

,01271 

-1.17362 

-1 .24505 

-19.15275 

-.2270? 

.87714 

-26.56505 

-15,00000 

.0)271 

-1 .31648 

-1 .36791 

-19.15275 

-.22702 

.87714 

-26.56505 

-15,00000 

,01271 

-1 .45934 

-1 .53077 

-19.15275 

-.22702 

.87714 

-26.56505 

-15.00000 

.01271 

-1 .60220 

- 1 .67362 

-19.15275 

-.22702 

.07714 

-26,56505 

-15.00000 

,01271 

-1 .74605 

-1.816*8 

-19.15275 

-.28702 

.8771* 

-26.56505 

-1^ ,00000 

.01271 

-1 .88791 

-1 ,95934 

-19.15275 

-.22702 

.877)4 

-26.56505 

-15.00000 

.01271 

-2.03077 

-2.10220 

-19.15275 

-.22702 

.87714 

-26.56505 

-l‘=',oonon 

.01271 


(cont 'd) 
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cvj rg cvi r/ cn r) r> rj fo 


SECOND PLANFORM HORSESHOE 
VORTEX DESCRIPTIONS 
(Continued^ 


-2.1736? -2.E45CS -19.J5275 -.22702 

-2.31643 -2.30791 -19.15275 -.22702 

-J. 30659 -1.37601 -17.45626 -.66106 

-1.44944 -1.52087 -17.45626 -.68106 

-1.59230 -1.66373 -17.45826 -.68106 

-1.73516 -1.60659 -17.45626 -.68106 

-1.87801 -1.949^4 -17.45826 -.66106 

-2.02067 -2,09230 -17.45826 -.68J06 

-2.16373 -2.23516 -17.45826 -.66106 

-2.30659 -2.378C1 -17.45626 -.68106 

_p. 44944 -2.52087 -17.45826 -.661 06 

-2.59230 -2.66373 -17.45626 -.66106 

-2. ■^3516 -2.60659 -17.45826 -.68106 

-2.87801 -2.94944 -17,45626 -.66106 

-3.02Cg7 -3.09230 -17.45826 -.68106 

-3.1f>373 -3.23516 -1 7,45626 -.661 06 

-2.15383 -2.22526 -15.76376 -1.13510 

-2.29669 -2.36812 -15.76376 -1.13510 

-2.43955 -2.51098 -15.76376 -1,13510 

.58241 -2.65383 -15.76376 -1.13510 

.72526 -2.79669 -15.76376 -1.13510 

,S^'812 -2.93955 -15.76376 -1.13510 

.01098 -3.08241 -I5.7637fc -1.13510 

.15383 -3. 22526 -15.76376 -1.1 3510 

.29669 -3.86812 -15.76376 -1.13510 

.43955 -3.51096 -15.76376 -1.13510 

.58241 -3.65383 -15.76376 -1,13510 

.72526 -3.79669 -15.76376 -1,13510 

.£6812 -3.93955 -15.76376 -1.13510 

-4.01098 -4.08241 -15.76376 -1,13510 

-3.00106 -3.07251 -14.06927 -1.56914 

-3.14394 -3.21537 -14.n6?27 -1.5891* 

-3.28600 -3.35822 -14.06927 -1.58914 

-3.42965 -3*5010B -14.06927 -1.58914 

-3.57251 -3.64394 -14.06927 -1.58914 

-3.71537 -3.78680 -14,06927 -1.58914 

-3.85822 -3.9296S -14.06527 -1.58914 

-4.0010a -4.07251 -14.06527 -1.58914 

-4.14394 -4,21537 -14.06927 -1,5891* 

-4.2fl6G0 -*.35822 -1*.06927 -1.56914 

-4,^12965 -4.5D1C8 -14.0692? -1 .5891* 

-4.57251 -4,64394 -14,06927 -1.58914 

-4.71537 -4.7S680 -14.06927 -1.5691* 

-*.85622 -*.92965 -1*. 06927 -1,5091* 

-3,8*833 -3,91976 -12,37477 -2,04317 

-3,99119 -*.06262 -12.37477 -2.04317 

-4,13404 -4,205*7 -12.37477 -2.04317 

-4,27690 -4.34833 -12,37477 -2.04317 

-4. *1976 -4.49119 -12.37477 -2.0*317 


.87714 

-26.56505 

- 15.00000 

.0J271 

.87714 

-26.56505 

-15.00000 

,01271 

.67714 

-26.56505 

-15.00OOO 

.01433 

.87714 

-26.56505 

-15.00000 

.01433 

.87714 

-26.56505 

-15.00000 

.01433 

.87714 

-26.56505 

-l=.oonnn 

.01433 

.87714 

-26.56505 

-I 5 .O 0000 

,01433 

.87714 

-26,56505 

-1 = ,00000 

.01433 

.87714 

-26.56505 

-15.00000 

,01433 

.87714 

-26,56505 

-1 = ,00000 

,01433 

.87714 

-26.56505 

-1 = .00000 

.01433 

.87714 

-26,56505 

-15,00000 

,01433 

.87714 

-26.56505 

-l=.nnooo 

,01433 

.87714 

-26.56505 

-15.00000 

.01433 

.87714 

-2ft. 56*^05 

-l=.ooonn 

.01433 

.07714 

-2ft. 56505 

-l=.oonoo 

. 0 1433 

.87714 

-26,56505 

-l5.nnonn 

.01626 

.87714 

-2ft.'=ft505 

-15. moon 

.01626 

.87714 

-2ft .56505 

-15,00000 

.01626 

.87714 

-26,56505 

-15.00000 

.01626 

,87714 

_2ft.5ftt;n5 

-15,00000 

.01626 

.67714 

-26.56505 

-1 5.00000 

.01626 

.87714 

-26,56505 

-15.00000 

,01626 

.87714 

-26.56505 

-15,00000 

.01626 

.87714 

-2ft,5ft';n5 

-15,00000 

.01626 

.g77l4 

-26, *=6505 

-15,00000 

,01626 

.87714 

-26,56505 

-15,00000 

.01626 

.87714 

-26.5650=; 

-15,00000 

.01626 

.87714 

-26,56505 

-15.00000 

.01626 

.87714 

-26,56=05 

-15,00000 

,01626 

.87714 

-26,56=05 

-IS.nnooo 

,01006 

.87714 

-26,5650 = 

-IS.f'oooo 

.01606 

.87714 

-26.56=05 

-15.00000 

.01806 

.87714 

-26 . = 6=05 

-15.00000 

.01806 

.87714 

-26,56=0= 

-15,00000 

.0 1806 

.67714 

-26, =6=05 

-15.00000 

.01806 

,87714 

-26, =6=0= 

-15,00000 

,01606 

.07714 

-26.56=05 

-l=, ooono 

.01806 

.67714 

-26,56505 

-15,00000 

.01806 

.87714 

-26.56505 

-15,00000 

,01806 

.87714 

-26,56=0= 

-l=,onnon 

,01806 

.87714 

-26.56505 

-15,00000 

.01806 

.87714 

-26.56505 

-15,00000 

,0]R06 

.07714 

-26,5650= 

-l=.nnooo 

.01806 

,87714 

-26.56=05 

-15,00000 

.01966 

.87714 

-26, =6505 

-15,00000 

.0196^ 

.87714 

-26,56505 

-15,00000 

. 015)66 

,87714 

-26,56505 

-15,00000 

.01966 

.37714 

-26.56505 

-15,00000 

.01966 
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-A .S6^6^ 

-4 .63404 

-12.37477 

-2,04317 

.67714 

-26.56505 

-is.oonno 


-4.70547 

-4.77690 

-12.37477 

-2.04317 

.07714 

-26.56505 

-15.00000 

,P]Q66 

-/) .8*833 

-*.91976 

-1 2. 37477 

-2.04317 

.P771A 

-26.56505 

-15,00000 

.01066 

.99119 

-5.06262 

-12.37477 

-2,04317 

.P7714 

-26.56505 

-15.00000 

,01966 

-5. 134Q4 

-5.20547 

-12.37477 

-2.04317 

.P7714 

-26.56505 

-1 S.nonnn 

.01966 

-5:27690 

-5.34833 

-12.77477 

-2.04317 

.87714 

-26.56505 

-15.00000 

.0lO6f. 

-5.41976 

-5. *91 19 

- 1 2.37477 

-2.04317 

.P77]4 

-26.56505 

-15,00000 

.01966 

-5.56262 

-5*63404 

-12.37677 

-2.04317 

.P7714 

-26,56505 

-15,00000 

.01066 

-5.70547 

-5.77690 

-1 2, 37477 

-2.04317 

.P771 4 

-26.56505 

-15,00000 

,01966 

-4 .69556 

-4.76701 

-1 0.68027 

-2.497? 1 

.P7714 

-26, 5650*=; 

-1*^. onoon 

.02106 

-4.83fi43 

-4 .90986 

-1 0.68027 

-2,49721 

.67714 

-2ft.P6'^OC 

-1 K.onooo 

.02106 

-4.98129 

-5.05272 

-10,68027 

-2.49721 

.«7714 


-15.00000 

,02106 

-3. 12415 

-5.19558 

-1 0,»='P0?7 

-2.49721 

.P7714 

-26.5650«^ 

-1 = .onnon 

.021 06 

-5.26701 

-5.33643 

-1 o.6Pn?7 

-2,49721 

.67714 

-26,56505 

-I'^.ooonn 

.02106 

-5.40986 

-5 .*81 29 

-1 n.6PO?7 

-2.4972] 

.87714 

-26.56505 

- 15.00000 

,02106 

-5.55272 

-5.62*15 

-1 n,frP0?7 

-2.49721 

.P7714 

-26.56505 

-1 5,00000 

.021 06 

-5.69558 

-5.76701 

-1 n,fiP077 

-2.49721 

.87714 

-26.56505 

-15 .oonnn 

,021.06 

-5.83843 

-5.9f’986 

-1 n.f Po?7 

-2.497P] 

.87714 

-26.56505 

-15.00000 

.02106 

-5.98129 

-6.05272 

-10. f-P027 

-2.49721 

.P771 4 

-26,56=;n': 

-1 5.00000 

,021 06 

-6.1?* 15 

-6.19558 

-1 n,p.P027 

-2.49721 

.P7714 

-26,56t;o5 

-15.00000 

.021 06 

-6.26701 

-6.33P43 

-1 0.68027 

-2.49721 

.07714 

-26,56*^0': 

-15,00000 

,021 06 

-6. *0986 

-6.*S1 29 

-10.68027 

-2.49721 

.B77J4 

-26.56505 

-15,00000 

.02106 

-6.55272 

-6,62*15 

-10,68027 

-2.49721 

.67714 

-26,56505 

-15,00000 

.02106 

-5.5*283 

-5 . 6 1 4 E5 

-8.98578 

-2.95125 

.P7714 

-26,56=^05 

-1 5,00000 

, 02226 

-5.6S568 

-5.7571 1 

-e. 98578 

-2.95] 25 

.87714 

-26.56505 

-15.00000 

,n???6 

-5.62654 

-5.89997 

-8.98578 

-2.95125 

.67714 

-26.56505 

-15,00000 

.02226 

-5.97140 

-6.04263 

-B. 90578 

-2.95125 

.«7714 

-26.56505 

-15.00000 

.02226 

-6.1 1*25 

-fe. 16568 

-8.98578 

-2.95125 

.P7714 

-26.56505 

-I'^.oooon 

,n???6 

-6.25711 

-6.32654 

-6.98578 

-2.95125 

.87714 

-26 .56505 

-15,00000 

,02226 

-6.39997 

-6.47140 

-8.98578 

-2.95125 

.P7714 

-26.56505 

-15.00000 

.02226 

-6.5*283 

-6.61*25 

-8.98570 

-2.95125 

.P7714 

-26.56*^05 

-1*^.00000 

.02226 

-6.68568 

-6.7571 1 

-8.96578 

-2.95125 

.P7714 

-26.56505 

-15,00000 

,02226 

-6.82854 

-6*89997 

-P .9B578 

-2.95125 

.87714 

-26.56505 

-l=;.oonoo 

,02226 

-6.97140 

-7.04283 

-8.9P578 

-2.95125 

.P7714 

-26.56505 

-15.00000 

,02226 

-7.1 1425 

-7.18568 

-8.9^570 

-2.95125 

.P7714 

-26,56505 

- 15,00000 

.02226 

-7,25711 

-7.32654 

-6.98570 

-2.95125 

.67714 

-26.565.05 

-15,00000 

,02226 

-7.39997 

-7,47160 

-6.98578 

-2.95125 

.87714 

-26.56505 

-] 5.0O00O 

.02226 

-6.39007 

-6.46150 

-7.29128 

-3.40529 

,87714 

-26.56505 

-15.00000 

.02327 

-6.53293 

-6.60436 

-7.29128 

-3.40529 

.P7714 

-26,56505 

-15,00000 

.02327 

-6.67579 

-6.74722 

-7,?91?e 

-3.40529 

.P7714 

-26,56505 

-15,00000 

,02327 

-6.81664 

-6.89007 

-7.20120 

-3.40529 

.P7714 

-26.56505 

-15,00000 

, 0P327 

-6.96150 

-7.03293 

-7.291 ?8 

-3.40529 

.67714 

-?6.56';05 

-15,00000 

.02327 

-7.10436 

-7.17579 

-7.29120 

-3.40529 

.87714 

-26.56505 

-15.00000 

.02327 

-7.Z472? 

-7.31864 

-7.29126 

-3.40529 

.87714 

-26.56505 

-l*^, 00000 

.02327 

-7,39007 

-7.46150 

-7. 29128 

-3.40529 

.67714 

-26.5(4505 

-15.00000 

.02327 

-7.53293 

-7.60436 

-7.29128 

-3.40529 

.67714 

-26.56505 

-15,00000 

.02327 

-7.67579 

-7.74722 

-7.29128 

-3,40529 

.87714 

-26.56505 

-is.ooono 

,02327 

-7,81864 

-7,89007 

-7.29128 

-3.40529 

.37714 

-26.56505 

-15,00000 

.0?3?7 

-7.96150 

-8«03a93 

-7.291 28 

-3.40529 

,67714 

-26.56505 

-15,00000 

.02327 
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-8.lQ^3e. 

-8.17579 

-7,29128 

-3.40529 

.87714 

-26.56505 

-15,00000 

.02327 


-8.31864 

-7.29128 

-3, *0529 

.07714 

-26.56505 

-15,00000 

.02327 

-7.23732 

-7,30875 

-5.59679 

-3.85933 

.87714 

-26,56505 

-15.00000 

,02411 

-7.36018 

-7.45161 

-S. 59679 

-3.05933 

.87714 

-26.56505 

-15.00000 

.02*1 1 

-7.5S30A 

-7.59446 

-5.59679 

-3,85933 

.87714 

-2*^.50505 

-15.00000 

.0241 1 

-7.66589 

-7,73732 

-5.59679 

-3.85933 

.87714 

-26.56505 

-15.00000 

,02411 

-7.80675 

-7.88018 

-5.59579 

-3.85933 

.8771* 

-26.56505 

-15.00000 

.02*1 1 

-7.9^161 

-8.02304 

-5.59679 

-3.85933 

.87714 

-26,56.005 

-15.00000 

.0241 1 

-8,09*66 

-8.16589 

-5.59679 

-3.85933 

.87714 

-26 ,56c,05 

-15.00000 

.02411 

-8.23^32 

-8.30875 

-5.59679 

-3.P5933 

.87714 

-26,56005 

-15,00000 

.02*11 

-8.38018 

-0.45161 

-5.59679 

-3.85933 

.67714 

-26.6/;«;oo 

-15.00000 

.02411 

-8.52304 

-8, 59**6 

-S. 59679 

-3.P5933 

.87714 

-26,5600'^ 

-15,00000 

.02411 

-8.66589 

-8.73732 

-5.59679 

-3.85933 

.87714 

-26,56Ei05 

-15,00000 

.02*1 1 

-8.80875 

-6.880)8 

-5.59679 

-3.85933 

.87714 

-26.5650'= 

-15,00000 

.02411 

-8.95161 

-9.O2304 

-5.59679 

-3.85933 

,P7714 

-26,56605 

-15.00000 

.02*1 1 

-9.09*46 

-9. 16569 

-5.59679 

-3.85933 

.0771 4 

-26,56005 

-I'^.oonoo 

.02411 

-8,08*57 

-8. 156O0 

-3.90229 

-4,31337 

.e‘^714 

-26.56505 

-15,00000 

,02479 

-8,2^743 

-8.29885 

-3.90229 

-4.31337 

.87714 

-26. *=6505 

-15,00000 

.02*79 

-8.37026 

-8.44171 

-3.90229 

-4.31337 

.87714 

-26.56505 

-15,00000 

.02479 

-6.51314 

-8.58457 

-3.90229 

-4. 31337 

.P771* 

-26.56505 

-15,00000 

.02479 

-8.65600 

-6.72743 

-3.90229 

-4 ,3l-’37 

.P7714 

-26.56505 

-IS.oonoo 

.02479 

-8.79885 

-6.67026 

-3.90229 

-4.31337 

,P771 4 

-26.56«;o5 

-15,00000 

.02*79 

-8,9^171 

-9.01314 

-3.90229 

-4.31337 

,87714 

-26.56505 

-15,00000 

.02479 

-9. 06*57 

-9 .15600 

-3.90229 

-4.31337 

.8771* 

-26.56505 

-l=.oonofl 

,02479 

-9.22743 

-9.29865 

-3.90329 

-4.31337 

,07714 

-26.56505 

- 1 «= . 0 n 0 0 0 

.02479 

-9.37028 

-9.44171 

-3.90229 

-4.31337 

.87714 

-26.56505 

-1'=. 00000 

,02479 

-9,51314 

-9.58*57 

-3.90229 

-4,31337 

.8771* 

-26.56505 

-15,00000 

.02479 

-9.65600 

-9.72743 

-3.90229 

-4.31337 

.87714 

-26,5660'= 

-1^,00000 

,02*79 

-9.79885 

-9.87028 

-3.90229 

-4,31137 

.87714 

-26,56=105 

-15,00000 

.02479 

-9. 9^171 

-1 0.0131* 

-3.90229 

-4.31337 

.P7714 

-26.56«;o5 

-15.00000 

,02479 

-8.93182 

-9.00325 

-2.20760 

-4,76741 

.87714 

-26.56505 

-15,00000 

,02527 

-9,07467 

-9.1*610 

-2.207gn 

-4.76741 

,P7714 

-26.56«^05 

-15.00000 

.02527 

-9.21753 

-9.?8896 

-2.20780 

-4,76741 

.P77T4 

-26.56505 

-15,00000 

.02527 

-9.36039 

-9.43162 

-2.20780 

-4,7(4741 

.87714 

-26.56505 

-15,00000 

.02527 

-9.50325 

-9.57467 

-2,20760 

-4.76741 

.P77I4 

-26.56505 

-l^.OOOOO 

,02527 

-9,6^610 

-9.71753 

-2.20780 

-4,76741 

.87714 

-26.5^505 

-15,00000 

.02527 

-9.78896 

-9.66039 

-2.20780 

-4.7IS741 

.P77J* 

-26. 56=;n5 

-15.00000 

,02527 

-9.9318? 

-10.00325 

-2.20780 

-4 .76741 

.87714 

-26.55505 

-15,00000 

.02527 

-10.07*67 

-10.14610 

-2,20780 

-4.76741 

.P7714 

-26.56505 

-l'=.O0OOO 

.02527 

-10.21753 

-10. 26896 

-2.20780 

-4.7674] 

.07714 

-?6.56';o5 

-15,00000 

.02527 

-10.36039 

-10.43182 

-2.207gn 

-4.76741 

.07714 

-26,56=105 

-15.00000 

,02527 

-10.50325 

-10.57467 

-2.20780 

-4.76741 

.87714 

-26,56505 

-15,00000 

.02527 

- 1 0,6*610 

-10.71753 

-2.20700 

-4.76741 

.87714 

-26.56505 

-15,00000 

,02527 

-10.78896 

-10,86039 

-2.20780 

-4,76741 

.87714 

-26,56=i05 

-l'=,ooonn 

.02527 

-9.69556 

-9.76701 

-.68027 

-5.17671 

.70427 

-26.55505 

-15,00000 

,025*6 

-9.638*3 

-9.90986 

-.68027 

-5.17671 

.70*27 

-26,56505 

-15,00000 

.025*6 

-9.96129 

-10.05272 

-.66027 

-5,17671 

.70427 

-26,56505 

-15,00000 

.025*6 

-10.12*15 

-10,19556 

-.68027 

-5.17671 

.70427 

-26.56505 

-15,00000 

.02546 

-10,26701 

-10.338*3 

-.68027 

-5.17671 

.70427 

-26.56505 

-15,00000 

.025*6 


62 



SECOND PLANFORM HORSESHOE 
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-IO.A0986 

-1P.A8129 

-.68027 

-5.17671 

.70427 

-26.56505 

-15.00000 

,02546 

-10.55272 

-10.62415 

-.68027 

-5.17671 

.70427 

-26.56505 

-15,00000 

.02546 

-10.69558 

-10.76701 

-.6P027 

-5.17671 

.70427 

-26.56505 

-15.00000 

,02546 

-1 0.838A3 

-10,90986 

-.66027 

-5.1767] 

.70427 

-26.56505 

-15.00000 

.02546 

-10.98129 

-11.05272 

-.66027 

-5,17671 

.70427 

-26,56505 

-15,00000 

.02546 

-1] .12A15 

-1 1.19558 

-.6P027 

-5,17671 

.70427 

-26.56505 

-15.00000 

,02546 

-1 1 .26701 

-11 ,33843 

-.60027 

-5.17671 

.70427 

-26.56505 

-15,00000 

,02546 

-11 .*0986 

-11 .A6129 

-.60027 

-5.17671 

.70427 

-26.56505 

-15,00000 

,02546 

-1 1 .55272 

-11 .62415 

-.66027 

-5.17671 

.70427 

-26.56505 

-15.00000 

,02546 


REF. CHOR[> 

C AwERAGE 

TRUE AREA 

REFERENCE AREA 

P/2 

REF, AR 

TRUE AR 

MACH NUMBER 

2.00000 

95039 

162.30996 

160,00000 

20.56352 

10,55091 

10.40075 

, 75noi 


Ai = i.nnopn 


A? = 1 .pnoon 


ON 

C/4 


FIRST 


LOADING 


A N F 0 R M 

SPAN 

Y 

CL<^C 

30.33P70 

.06123 

20.06794 

.09010 

19.15275 

.37810 

17.45826 

.42221 

15.76376 

, 47 4 46 

14.06927 

.52321 

12.37477 

.56652 

10.68027 

.60426 

-8.98578 

.63671 

-7.29128 

.66421 

-5.59679 

.68699 

-3.90229 

.70515 

-2.20780 

.71832 

-.68027 

.72348 


CL DEVFLOPED ON THIS PL ANFnRM= 


. 154AA1 


CM DEVELOPED CM THIS PL ANFQRM= 


503438 



SECOND PLANFORM SPAN LOADING 


Y 

CL<^C 

-20,33970 

.06142 

-20.06794 

,09044 

-19,1.5275 

.34369 

-17.45826 

,38758 

-15.76376 

.43977 

-14.06927 

.48048 

-12.37477 

.53178 

-10.68027 

,56950 

-8.98576 

.60195 

-7.29128 

.629*4 

-5,59679 

.65221 

-3.90229 

.67037 

-2.20780 

.68354 

-.66027 

.68871 


CL DEVELOPED ON THIS PLANFORNs ,145462 
CM DEVELOPED CN THIS PLANF0RM= -.471198 


CL DESIGN 


.300000 CL COMPUTED= ,299904 


CM COMPUTEO= ,312E-0T 


CO V= 


.00224L 


os 

C/l 


LOCAL elevation DATA 


Y= - 20.3397 \/P/^= -.9901 CHQPC= .8938 

slopes. 02/dx.at slope points. fp.om front to rear 

1996 .1A9A .1169 .0918 .07OA .0511 .0328 . 0 1 A7- . 0039-, P238-. 0 A66-. 0751 11 77. . ?332 

corresponding x/c locations from front to rear 

DS3$ ,IB50 ,196* ,2679 .J393 ,*lC7 ,*32l .5536 .6250 , 696<4 .7679 .8393 .9107 ,9821 


chord angle of attack in x-2 PLANE= 1 .3739DEGREES 
LOCAL ELEVATION 


x/C 

2/C 

(2/C) Cns (DIH) 

DELTA X 

DELTA 7 

(DLT Z)COS(DTH) 

.pnoo 

.0240 

.0062 

,0000 

.0214 

.0055 

.0250 

.0190 

.0049 

.0223 

.0170 

.0044 

,0500 

,0139 

.0036 

,0447 

.0124 

.0032 

.0750 

.0090 

. 0023 

.0670 

.0081 

.0021 

,1000 

,0046 

.0012 

,089A 

,0041 

.0011 

.1250 

. 0006 

.000 1 

,1117 

,0005 

,nonl 

,1500 

- ,0030 

-.0008 

.1341 

-.0027 

-.0007 

.1750 

-.0062 

-.0016 

.1564 

-.0055 

-.0014 

,2000 

-.0002 

-.00^4 

.1788 

-.0082 

-.0021 

,2250 

-.0120 

-.0031 

.2011 

-.0107 

-.0028 

.2500 

- .0145 

-.0038 

.2234 

-.0130 

-.0034 

.2750 

-.0169 

-.0044 

.2458 

-.0151 

-,0039 

.3000 

-.0190 

-.0049 

.2681 

-.0170 

-.0044 

,3250 

-.0210 

-.0054 

.2905 

-.0187 

-.0049 

.3500 

-.0227 

-,0059 

.3126 

-.0203 

-.0053 

,3750 

-.0243 

-.0063 

.3352 

-.0218 

-.0056 

,4000 

-.0258 

- ,0067 

.3575 

-.0230 

-.0060 

.4250 

- .0270 

-.0070 

.3798 

-.0242 

- ,006 3 

.4500 

-.0281 

-.0073 

.4022 

-.0252 

-.0065 

.4750 

-.0291 

-.0075 

,4245 

-.0260 

-.0067 

,5000 

-.0299 

-.0077 

.4469 

-.0267 

-.0069 

.5250 

- .0305 

- .0079 

.4692 

-.0273 

-.0071 

.5500 

- .031 0 

-.0080 

.4916 

-.0277 

-.0072 


.5750 

-.0313 

- .0081 

.51 39 

-.0260 

-.0072 

,6000 

-.0314 

-.0001 

.5363 

-.0281 

-.0073 

,6250 

-.0314 

-.0081 

,5586 

-.0281 

-.0073 

.6500 

-.0312 

-.0081 

.5809 

-.0279 

-.0072 

.6750 

-.0309 

-.0080 

.6033 

-.0276 

-.0071 

,7000 

-.0303 

-.0079 

.6256 

-.0271 

-.0070 

.7250 

-.0296 

- .0077 

.6A80 

-.026*= 

-.0069 

.7500 

-.0287 

-.0074 

,6703 

-.0257 

-.0066 

.7750 

- .0276 

-.0071 

.6927 

-.0247 

-.0064 

,8000 

-.0262 

- ,0068 

.7150 

-.023'= 

-.0061 

.8250 

-.0246 

- .0064 

.7373 

-.0220 

-.0057 

.8500 

-.0227 

-.0059 

.7597 

-.0203 

-.0053 

,8750 

-.0207 

-.0054 

.7820 

-.0185 

-.0048 

,9000 

-.0184 

-.0048 

.0044 

-.0164 

- ,0043 

.9250 

-.0154 

-.0040 

,8267 

-.0137 

-.0036 

.9500 

-.0112 

-.0029 

.8491 

-.0100 

-.0026 

.9750 

-.0058 

-.0015 

.8714 

-.0052 

-.0013 

.noon 

0 .noon 

0,0000 

.8936 

0,0000 

0 ,0000 
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-2n.n679 


Y/n/2= 


9769 


chohd= 


1.5688 


Y = 


SLOPES. DZ/DY .AT SLOPE POINT*;. ForiM FPON'T TO REAR 

.1936 .0976 . 0*19 . 00 * 9 -. 0ZH8 -. 0397 -. 0549 -. 0681 -. 0807 -. 0939 -. 1093 -. 130I -, 16 * 7-, ?609 

cnpprspoNOTN 0 x/r locations fdom ppokit to peap 

.0536 .1?50 . 196 * .2679 .3393 .4107 .4821 .5536 .6250 . 696 * .7679 .8393 ,9107 .9821 


OHOPO / inpLF of ATtaOK in y-2. PLANF = -2.3371DEGREES 


LOCAL ELEVATICrJ 


x/c 

2 /C 

(Z/cicnsfHTh) 

DELTA Y 

DELTA 7 

(DLT Z ) C0S ( D ! H ) 

.0000 

- . ( 1*06 

-.0106 

, 0 ( M>0 

-. P640 

- .01 66 

,0250 

-. 0*57 

-.0118 

.0392 

-.0717 

-.0186 

.0500 

-.0506 

-.0131 

. 078 * 

-. 079 * 

'-,0206 

. 07S0 

- , 0553 

-. 01*3 

.1177 

-.0867 

-. 022 * 

,1000 

- .0592 

-.0153 

.1569 

-.0928 

-, n?*n 

.1250 

- .0620 

-.0161 

.1961 

-.0973 

-.0252 

.1500 

-. 06*1 

-.0166 

.2353 

-.1006 

-.0260 

. 1 750 

- .0657 

-.0170 

. 27*5 

-.1030 

-.0267 

.2000 

- .0668 

-.0173 

. 313P 

-. 1 0*9 

-.0271 

.2250 

-.0677 

-.0175 

.3530 

-.1062 

-.0275 

,2500 

-.0682 

-.0176 

.3922 

-.1069 

-.0277 

.2750 

-. 068 * 

-.0177 

.* 31 * 

-.1 072 

-.0276 

.3000 

-.0683 

-.0177 

,*706 

-.1071 

-.0277 

.3250 

-.0680 

-.0176 

.5098 

-.1066 

-.0276 

.3500 

- .0675 

-.0175 

. 5*91 

-.1050 

-. 027 * 

.3750 

-.0668 

-.0173 

.5883 

-. 10*8 

-.0271 

,*oon 

-.0659 

-.0171 

.6275 

-. 103 * 

-.0268 

.*250 

-. 06*9 

-.0168 

.6667 

-.1018 

-. 026 * 

.*50 0 

-.0638 

-.0165 

.7059 

-.1 non 

-.0259 

.4750 

-.0625 

-.0162 

. 7*52 

-.0980 

-. 025 * 

,5000 

-.061 1 

-.0158 

, 7R4 * 

-.0959 

-. 02*8 

.5250 

- .0596 

-.(’ IS * 

.8236 

-.0935 

-. 02*2 

.5500 

- , 0580 

-.0150 

,8628 

-.0909 

-.0235 

.5750 

-.0562 

-. 01*5 

.9020 

-.0882 

-.0220 

.6000 

- . 05*4 

-.0141 

. 9*13 

-.0853 

-.0221 

.6250 

- , 05E * 

-.0136 

.9805 

-.0822 

-. 02] 3 

.6500 

-.0503 

-.0130 

1.0197 

-.0789 

-. 020 * 

.6750 

-. 0*81 

-.0125 

1.0589 

-.0755 

-.0195 

,7000 

-. 0*58 

-.0119 

1.0981 

-.0719 

-.0186 

.7250 

- . 0 * 3 * 

-.0112 

1.1373 

-.0681 

-.0176 

,7500 

- , 0*09 

-. 0X06 

1.1766 

-. 06*1 

-.0166 

,7750 

-.0382 

-.0099 

1 .2158 

-.0599 

-.0155 

.6000 

-.0353 

-.0091 

1.2550 

-.0553 

-. 01*3 

. P250 

-.0322 

-.0083 

1 . 29*2 

-.0505 

-.0131 

,6500 

-.0290 

-.0075 

1 . 333 * 

-. 0 * 5 * 

-.0118 

.6750 

-.0256 

-.0066 

1 .3727 

-. 0*01 

-. 01 n * 

,9000 

- ,0220 

-.0057 

1 .* 1)9 

-. 03*5 

-.0089 

.9250 

-.0178 

-. 00*6 

l .* 51l 

-.0279 

-.0072 

.9500 

-.0126 

-.0033 

l.*903 

-.0198 

-.0051 

.9750 

-.0065 

-.0017 

1 .5295 

-.0102 

-.0026 

1,0000 

0 ,0000 

0,0000 

1 .5668 

0,0000 

0,0000 


67 



19.1528 


Y/P/2= 


9323 


CHnRD= 


2.oonn 


Y= - 


slopes, OZ/D' f^AT SLOPE PPIMts.PPOM FPPNT TO REAR 

.D353 .0253 .0186 .0133 .0086 .0CA3 . 0 0 0 2- , 0038- . 0 Q78- . 0 I PO- .O’l 68- , 0224- , P3 1 3- , 05T6 

CORfJESPCMDTMG X/C LOCATIONS PROM FRONT TO REAR 

.0536 .1250 .1964 .267$ .3393 .aIq? .4821 ,5538 .6250 .6964 .767? .8393 .9107 .9821 


CHf'RD ANGLE OP attack IN X-Z FLANe= - . 0925DEGREES 


LOCAL FLFVATTCN 


y/c 

1 /C 

(Z/ClCOS (OTH) 

DELTA X 

DELTA Z 

(DLT Z)COS(OTH) 

,0000 

- .001 6 

-.0016 

,0000 

-.0032 

-.0031 

,0250 

-.0025 

-.0024 

,050 0 

-.0050 

-.0048 

,0500 

-,n0 3<^ 

-.0033 

, 1 ono 

-.0068 

-.0066 

,0750 

-.0043 

-.0041 

,1500 

-.0085 

-.0002 

, 1 OOn 

- .n05n 

-.0049 

,2000 

-.0101 

-.0097 

,1250 

-.0057 

-.0055 

.2500 

-.0114 

-.0111 

,1500 

-.0063 

-.0061 

,3000 

-.0126 

-.0122 

,1750 

-.0068 

-.0066 

,3500 

-.0137 

-.0132 

,?onn 

-.0073 

-.0071 

,4000 

-.0147 

-.0142 

.2250 

-.0078 

-.0075 

.4500 

-.0155 

-.0150 

.2500 

-.0082 

-.0079 

, 5000 

-.01 63 

-.0157 

2750 

-.0065 

-.0082 

,5500 

-.0170 

-.0164 

3000 

-.0088 

-.0085 

.6000 

-.0176 

-.0170 

3250 

- .0090 

-.0087 

.6500 

-.0101 

-.0175 

3500 

-.0093 

-.0089 

,7000 

-.0165 

-.0179 

3750 

-.0094 

-.0091 

.7500 

-.0169 

-.0182 

4 000 

- ,0096 

-.0093 

,8000 

-.0192 

-.0185 

4250 

- .0097 

-.0094 

.0500 

-.0194 

-.0187 

4500 

-.0090 

- , 0094 

,9000 

-.0195 

-.0188 

4750 

-.0096 

-.0095 

.9500 

-.0196 

-.0189 

5000 

- ,0098 

-.0095 

1 ,0000 

-.ni'56 

-.0169 

5250 

- .0097 

-.0094 

1 .0500 

-.0195 

-.0188 

5500 

-.0097 

-.0093 

1.1000 

-.0193 

-.0187 

5750 

-.0096 

-.0092 

1 .1500 

-.0191 

-.0185 

6000 

- , 0094 

-.0091 

1 .2000 

-.0188 

-.0182 

6250 

-. 0092 

-.0069 

1 ,2500 

-.0165 

-.0179 


6500 

- .0090 

-.0087 

1 .3000 

-.0181 

-.0174 

6750 

-.0088 

-.0065 

1.3500 

-.0176 

-.0170 

7000 

- .0085 

- .0082 

1 ,4000 

-.0170 

-.0164 

7250 

- , 0082 

-.0079 

1 ,4500 

-.0163 

-.0158 

7500 

- .0078 

-.0075 

1 ,5000 

-.0156 

-.0151 

7750 

-.0074 

-.0071 

! .5500 

-.0148 

-.0143 

6000 

- , 0069 

- ,0067 

1 , f 0 0 0 

-.0139 

-.0134 

8250 

- , 006a 

-.0062 

1 .6500 

-.0129 

- . 0 1 24 

8500 

-.0059 

-.0057 

1.7000 

-.0117 

-.0113 

8750 

-.0053 

-.0051 

1 , 7'=no 

-.0106 

-.0102 

9000 

- . 0046 

-.0045 

1 .8000 

-.0093 

-,0090 

9 250 

-.0038 

-.0037 

1 .8500 

-.0077 

- .0074 

9500 

-.0028 

-.0027 

1 .9000 

-.0055 

-.0053 

9750 

-.00] A 

-.0014 

1 .9500 

-.0029 

-.0028 

COoo 

0 .nonn 

0 .0000 

2 . oooo 

0,0000 

o.onoo 
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17.4583 


Y/P/2= 


84 98 


CHORD= 


Z. nnnn 


Sl.OPes*DZ/DX»^T SLOPE POIKTS.FPfiM PROMT TO REAP 

.0295 ,0225 ,ni7n .0122 .0079 .0037-. 0005-. 0050-, 0098-.0155-.0227-.n33B-.n6A4 

rCRpFC:p(iKQ|MG X/C LCC/UIPMS FROM FRONT TO RfftR 

0536 .1250 .1964 ,2679 .3393 .4107'. 4821 .5536 .6250 ,•6964 .7679 ,8393 .5107 .9821 


chord ANQLF of attack in x-Z PLANE= .0328OEGPEES 


LOCAL elevation 


X/C 

2/C 

(Z/OCOS (DIH) 

DELTA X 

delta 7 

(hlt z.)cr)R(nTH) 

.0000 

.0006 

.0006 

,onoo 

.001 1 

.0011 

.0250 

- , 0 On 4 

- .0004 

,0500 

-.0009 

-.0009 

,0500 

-.0015 

-.0014 

, 1 ono 

-.0029 

-.0028 

.0750 

- .0025 

-.0024 

.1500 

-.0049 

-.0047 

.1000 

-.0034 

-.0032 

.2000 

-.0067 

-.0065 

.1250 

-.0041 

-.0040 

.2500 

-.0083 

-.0050 

.1500 

- ,0048 

- ,0047 

.3000 

-.0097 

-.0093 

.1750 

- ,0055 

-.0053 

,3500 

-.0109 

-.0106 

,2000 

- ,0060 

-.0058 

,4000 

-.0121 

-.0117 

,2250 

- ,0066 

- ,0064 

,4500 

-.0132 

-.0127 

.2500 

-.0071 

- .0068 

,5000 

-.0141 

-.0136 

.2750 

-.0075 

-.0072 

.5500 

-.0150 

-.0145 

,3000 

- .0079 

-.0076 

,6000 

-.0156 

-.0152 

.3250 

- ,0082 

-.0080 

.6500 

-.0165 

-.0159 

,3500 

-.0085 

-.0062 

,7000 

-.017) 

-.0165 

.3750 

-.0088 

-.0085 

,7500 

-.0176 

-.0170 

.4000 

-.0090 

- , 0067 

,8000 

-.0181 

-.0175 

.4 250 

-.0092 

-.0069 

,8500 

-.0165 

-.0178 

,4500 

-.0094 

-.0091 

,9000 

-.0188 

-.01 PI 

.4750 

-.0095 

- .0092 

,9500 

-.0190 

-.0164 

.5000 

- ,0096 

-.0093 

1 ,0000 

-.0192 

-.0185 

.5250 

-.0056 

-.0093 

1.0500 

-.0193 

-.0186 

,5500 

-.0097 

-.0093 

1 , 1 000 

-.0193 

-.0167 

.5750 

- .0096 

-.0093 

1.1500 

-.0193 

-.0186 

,6000 

-.0096 

-.0092 

1 ,2000 

-.0191 

-.0185 

.6250 

- ,0095 

-.0091 

1,2500 

-.0169 

-.0183 


.6500 

-.0093 

- ,0090 

1 ,3000 

-.0166 

-.Olgp 

.6750 

- .009 1 

-.0088 

1.3500 

-.0163 

-.0176 

,7000 

-.0089 

- ,0086 

1.40/10 

-,017P 

-.017? 

.7250 

-.0086 

-.0083 

1 .4500 

-.0173 

-.0167 

,7500 

- . 0083 

- , nneo 

1.5000 

-.01 66 

-.0160 

.7750 

-.0079 

- .0077 

1.5500 

-.0159 

-.0153 

,800 0 

-.0075 

-.0072 

1 ,6000 

-.0150 

-.0145 

,8250 

- , 0070 

-.0067 

1 .6500 

-.0140 

-.0135 

.8500 

- ,0064 

- ,0062 

•1 .7000 

-.0128 

-.0124 

.6750 

- .0058 

-.0056 

1 .7500 

-.0116 

-.0)12 

,9000 

- ,0051 

- ,0050 

1 .eono 

-.0103 

-.0099 

.9250 

-,0043 

-.0041 

1 ,6500 

-.0085 

-.ooga 

,9500 

-.0031 

-.0030 

1 .9000 

-.0062 

-.0060 

.9750 

-.0016 

-.0016 

1 .9500 

-.0032 

-.0031 

.0000 

0 . ooon 

0 .noon 

2.0000 

0,0000 

0,0000 
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I ■III ■■■III ■■■li■^H»■l■l■l 


V= -15.763a 


Y/P/?= -.7673 


rHCPn= 


SLf’FPS'DZ/DX T SLHPE PCIMts.FpOM FPriK'T TO REAR 

.0320 .0241 .0179 .01E5 .0076 . 0 029- . o 0] 9- . 0 069- . 0 1 2* - , 0 1 86- . 0270- , 0395- , 0740 

rCPPESPPf^nTNG y/c lccatiok'; from fpoint Tn peap 

."S'e .1*50 .1964 .2679 .3393 .41n7 .4621 .5536 .6250 .6964 .7679 .8393 ,9107 .9821 

rpnrr of fiTTfiOK IM x-z. PLAh'E= - , 0378nFFRFFc; 


local elevation 


y./c 

2/C 

(2/C) CCS (niH) 

DELTA X 

DELTA 2 

(DLT 2>CC':(nTMi 

n ,r» 00 0 

- ,0007 

- .0006 

0 , 0 On 0 

-.0013 

- .001 3 

.0250 

-.0018 

-.0017 

.0600 

-.0035 

-.0034 

.0500 

-.0029 

-.0028 

,1000 

-.0058 

-.0056 

.0750 

- , n 04 r 

- .0038 

,1500 

-.0079 

-.0077 

,1000 

- .0050 

-.0048 

.2000 

-,0099 

-.0096 

.1250 

-.0058 

-.0056 

,2500 

-.01 16 

-.0)12 

.1500 

- .0066 

- .0063 

,30n 0 

-.0131 

-.0127 

.1750 

-.0073 

- ,0070 

.3500 

-.0145 

-.0140 

.2000 

- .0079 

-.0076 

.4 000 

-.057 

-.0152 

.2250 

- ,n084 

- .0082 

.4500 

-.0169 

-.0163 

.asf’o 

- ,n090 

-.0086 

,5ono 

-.0179 

-.0173 

.2750 

- ,0096 

- .0091 

.5500 

-.oiae 

-.0182 

.3000 

-.0098 

-.0035 

,6000 

-.0196 

-.0190 

.3250 

_ .0102 

-.0098 

,6500 

-.0204 

-.0197 

.3500 

-.0105 

-.0101 

,70no 

-.021 0 

-.0203 

.3750 

-.0106 

-.0104 

.7500 

-.0215 

-.0208 

.4000 

-.oil n 

-.('106 

,8000 

-.0220 

-.021 2 

.4250 

-.0112 

-.01 ng 

,8500 

-.0224 

-.0216 

.4500 

-.0113 

-.0109 

.9000 

-.0227 

-.0219 

,4750 

-.0114 

-.0110 

.9500 

-.0229 

-.0221 

.5000 

-.0115 

-.0111 

1 ,0000 

-.0230 

-.0222 

.5250 

-.0115 

-.0111 

1 ,0500 

- .0230 

-.0222 

.550 0 

-.0115 

-.0111 

) . 1 OOO 

-.0230 

-.0222 

.5750 

- ,0 1 16 

-.0110 

1.1500 

-.022P 

-.0221 

,6000 

-.0113 

- .0109 

1 .2000 

-.0227 

-.0219 

.635 0 

-.0112 

-.0108 

1 .250 0 

-.0224 

-.0216 


.6500 

-.oin 

-.0106 

1 .3000 

-.0220 

-.021 2 

.6750 

- .01 07 

-.0104 

1 .3500 

-.0215 

-.0207 

.7^00 

-.0)04 

-.0101 

1 ,4 ooO 

-.0209 

-.0202 

.7250 

-.0101 

-.0098 

1 .4500 

-.0202 

-.0195 

.7500 

- ,0097 

-.0094 

1 .5C00 

-.0194 

-.0188 

.7750 

- ,0093 

- .0089 

1 .5500 

-.0185 

-.0179 

.8000 

- ,0087 

- ,0084 

1 ,6000 

-.0174 

-.0169 

.8250 

-.0081 

-.0078 

1 .6500 

-.0162 

-.0157 

,8500 

- .0074 

-.0072 

1,7000 

-.0149 

-.0144 

.8750 

-.0067 

-.0065 

1 .7500 

-.0135 

-.0130 

,9000 

-.0059 

-.0057 

1 .8000 

-.one 

-.0114 

.9250 

- ,0047 

-.0047 

1 .8500 

-.009a 

-.0095 

.9500 

-.0035 

-.0034 

1 .9000 

-.0071 

-.0069 

.9750 

- .ooie 

-.0018 

1 .9500 

-.0037 

-.0036 

. 0000 

0 . nooo 

n.oonn 

2.0OO0 

0.0('00 

0 .0000 


,0000 
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Y= -M.0693 y/p/ 2= -,68'^9 CHOB0= S.nnnn 

SL<^PES«DZ/Dx , at slope POINTS«FRPf‘ FPOM TO DFAP 

0477 .C3-!i2 .(1254 ,0195 .01 25 .0071 . 001 9- . 0034- , 0089- , 01 50- , 022 1 - . 03 1 1 - , 04 A&- , 0929 

CCPF£SPP^OT^G X/C LOCATIONS FROM FRP^jT TO PFAF 

0536 .1250 .1964 .2^79 ,3393 .4107 ,4821 .5536 .6250 ,6964 .7679 .8393 ,9107 ,9821 


CHORD ANGLE O'" ATTACK TN X-2 PLANE= - , 1 1 43DEGREES 


LOCAL ELEVATIOM 


x/c 

1/C 

J2/OCP5 (DTH) 

DC L T ft X 

DELTft 2 

(DLt Z)CRS(OTH) 

,0 000 

- . 0020 

-.0019 

.onnO 

-.0040 

-.0039 

.0250 

- .0032 

- .0031 

. o^n 0 

- , n 0F4 

-.0062 

.rsno 

- . n 06 

- . 0 04 3 

.1000 

- .0088 

-.0085 

. n 750 

- .0056 

- ,0054 

.1 *^00 

-.0111 

- .0 1 00 

.1000 

-.0066 

-.0064 

.2000 

-.0132 

-.0120 

.1250 

-.0075 

- .0073 

.?':00 

-.0151 

-.0146 

.1500 

- .0093 

-.0081 

.7000 

-.0167 

-.0161 

.1750 

- .nngi 

- .0080 

.7'^nO 

-.0181 

-.0175 

.2000 

- .0097 

-.0094 

.4 000 

-.0194 

-.0188 

.2250 

- . 0 1 03 

-.0100 

, 4 c; (1 0 

-.0206 

- .0 199 

.2500 

-.0106 

-.0105 

,=^nno 

-.021 7 

-.0 21 0 

.2750 

-.0313 

-.0109 

.55(10 

-.0226 

-.-0219 

.3000 

- .0 11 7 

-.0113 

. 0 0 n 

-.0235 

-.0227 

.3250 

-.0121 

-.0117 

.F^^OO 

-.0242 

-.0234 

.3500 

- . 0 1 24 

-.0120 

,7000 

- . 0 24 B 

-.0240 

.3750 

- . 0 1 27 

-.0123 

.7500 

-.0254 

-.0245 

.4 000 

-.0129 

- .0125 

.poon 

-.0250 

-.0249 

.4250 

-.0131 

- .0 126 

.p'^no 

-.0262 

-.0253 

.4500 

-.0132 

-.0120 

.p on 0 

-.0264 

-.0255 

.4750 

-.0133 

-.0120 

, Q'^OO 

- .0266 

-.0257 

.5000 

- .0 133 

-.0129 

1 , nnno 

-.0267 

-.0258 

.5250 

- .0137 

-.0129 

1 , n^oO 

-.0267 

-.0257 

,5500 

-.0137 

-.0128 

1 . 1 ono 

-.0265 

-.0256 

.5750 

-,0l32 

-.0127 

1.1500 

-.0263 

-.0254 

.6000 

-.0130 

-.0126 

1,2000 

-.0260 

-.0251 

.6250 

-.0126 

-.0124 

1 .2500 

-.('256 

- .0248 


.6500 

-.0126 

-.0121 

1 .3000 

-.0251 

-.0243 

.6750 

-.0123 

-.0119 

1 .3500 

-.0245 

-.0237 

.7000 

-.0119 

-.0115 

1 ,4000 


-.0230 

.7250 

-.0115 

-.0111 

1 .4500 

-.0230 

-.0222 

,7500 

-.Olio 

- .0107 

1 .5000 

-.0221 

-.021 3 

,7750 

- .Ol(»5 

-.0101 

1 .5500 

-.0210 

-.0203 

.8000 

-.0099 

-.0095 

1,6000 

-.0198 

-.0191 

.8250 

-.0092 

-.0089 

1.6500 

-.0184 

-.0177 

.650 0 

-.0084 

-.0081 

1,7000 

-.0168 

-.016? 

.8 75 0 

- .0076 

-.0073 

1 .7500 

-.015? 

-.0147 

,9 000 

- .0067 

-.0064 

1 .0000 

-.0133 

-.0129 

.9250 

- .0055 

-.0053 

1.3500 

-.0110 

-.0106 

.9500 

-.0040 

-.0038 

1 .9000 

-.0080 

-.0077 

.9750 

-.0021 

-.0020 

1 ,9500 

-.0041 

-.0040 

.0000 

0 ,0000 

0.0000 

?,nono 

o.nr'on 

0 , ftOOO 
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1 2.3746 


Y/P/2= 


6024 


CH0R0= 


2. noon 


Y = 


SLOPES. D2/DV , AT SLOPE POTNTS.FROM FRONT TO REAR, 
0506 .0360 .0264 .0189 .01 25 . 0066 . 00 09-. 0 04&- . O I 08- , 0 1 74 0250- , 0347- , 04 96- . 0908 

corresponding x/c locations fron front to rear 

0536 .1250 .1564- .2^79 .3393 .410^ .4821 .5536 .6250 .6964 ,7675 ,8393 .5107 .9821 


CHORD ANGLE OF ATTACK IN )t-Z PLANE= - . 1 860OEGREES 


LOCAL ELEVATlOt'/ 


X/C 

Z/C 

(Z/C> COS (OTH) 

DELTA X 

DELTA Z 

(OLT ZlCCiSfDTH) 

,0000 

-.0032 

-.0031 

, nnno 

-.0065 

-.0063 

.025n 

-.0045 

- .0044 

,0500 

-.0090 

-,0007 

.0500 

- ,.0 058 

-.0056 

.1000 

-.0116 

-.0112 

.0750 

-.0070 

-.0060 

.1500 

-.0141 

-.0136 

.1000 

- .0082 

- .0079 

.2000 

-.0163 

-.0158 

.1250 

-.0091 

-.0080 

.2500 

-.0182 

-.0176 

.1500 

-.ol on 

-.0096 

.3000 

-.0199 

-.0193 

.1750 

- , n 1 07 

-.0104 

.3500 

-.0214 

-.0207 

.2 000 

-.0114 

- .0 1 1 0 

.4000 

-.0228 

-.0220 

.2250 

-.0120 

-.0116 

,4500 

-.0240 

-.0232 

.2500 

- .0126 

-.0121 

.5000 

-.0251 

-.0263 

.2750 

-.013] 

-.0126 

,550 0 

-.0261 

-.0252 

.3000 

-.0135 

-.0130 

,6000 

-.0270 

-.0260 

.3250 

-.0139 

-.0134 

,6500 

-.0277 

-.0268 

.3500 

- ,0142 

-.0137 

,7000 

-.0263 

-.0274 

.3750 

- ,0 1 44 

-.0139 

.7500 

-.0289 

-.0279 

.4000 

- ,0146 

-.0141 

.8000 

-.0293 

-.026.3 

.4250 

-.0148 

- .0 14 3 

.850 0 

-.0296 

-.0286 

.4500 

-.nl49 

-.0144 

.900 0 

-.0298 

-.0288 

.4750 

-.0150 

-.0145 

,9500 

-.0300 

-.0289 

,5000 

-.0150 

-.0145 

J .0000 

-.0300 

-.0290 

.5250 

-.0149 

-.0144 

1 .0500 

-.02RR 

-.0269 

.5500 

- ,0l49 

-.0144 

1 ,1 000 

-.0297 

-.0287 

.5750 

- .0 147 

-.0142 

1.1500 

-.0294 

-.0284 

.6000 

- .0145 

-.0140 

1 .2000 

-.0291 

-.0281 

,6250 

-.0143 

-.one 

1 ,2500 

-.0286 

-.0276 


,6500 

- ,nl4 0 

-.0135 

1 .3000 

-.0260 

-.0270 

.6750 

-.0136 

-.0132 

1 .3500 

-.0273 

-.0263 

.7000 

-.0132 

-.0128 

1,4000 

-.0264 

-.0255 

,7250 

-.0120 

-.0123 

1 ,4500 

-.0255 

-.0246 

,7500 

-.0122 

-.0118 

1.5000 

-.0244 

-.0236 

.7750 

-.0116 

-.0112 

1 .5500 

-.0232 

-.0224 

.8000 

-.0109 

- .0105 

1 ,6000 

-.021 8 

-.021 1 

.8250 

-.0101 

-.0098 

1 ,6500 

-.0203 

-.0196 

,8500 

- .0093 

-.0089 

1 ,7000 

-.0165 

-.0179 

.8750 

-.0083 

-.0081 

1.7500 

-.0167 

-.0161 

.9000 

- .0073 

- ,0071 

1 .8000 

-.0146 

-.0141 

.9250 

- ,0060 

- .0058 

1 ,8500 

-.0121 

-.0117 

,9500 

- ,0044 

-.0042 

1 ,9000 

- ,0087 

-.0064 

.9750 

-.0023 

-.0022 

1 .9500 

-.0045 

-.0044 

.0000 

0 .pooo 

0.0000 

2 ,00o0 

0 ,0000 

o.oono 
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Y= -] 0.6603 Y/P/Z= -.5199 CHnRD= 2.onon 

SLOPES. D2/0V SLOPE POINTS. FROM FROMT TO PEftR 

0531 .0374 ,0272 ,0192 .0123 . 0060- . OO 00- , OOfel n 1 25- , 0 1 95- . 0276- , 0380-. 0538- . 0977 

CCRRESPO^'DING X/C LOCATirws frpm front to rear 

0536 .1250 .1964 .2679 .3393 .4107 .4821 .5536 .6250 .6964 .7679 .8393 .9107 .9821 


chord angle of attack in y-Z FLANE= -.2532DEGREES 


I nCAL FLFVATTCN 


X/C 

Z/C 

( 2 / C ) CC 5 { DTH ) 

DELTA V 

DELTA z 

(DLT ZlCOSfOTH ) 

ooon 

- , 0 0 4 /l 

-.0043 

, 0 nn 0 

-.0068 

-.0085 

0250 

- .0058 

-.0056 

.0500 

-.0115 

-.0111 

0500 

-.0071 

-.0069 

,1000 

-.0142 

-.0137 

0750 

-.0064 

-.0001 

. 15(10 

-.0168 

-.0162 

1 on n 

- .0096 

-.0092 

,2000 

-.0191 

-.0165 

125 0 

- . n 1 Of , 

-.0102 

.2500 

-.021 1 

-.0204 

1 500 

-.0114 

-.0111 

,3000 

-.0229 

-. 02 ?^ 

1 750 

-.0122 

-.0118 

.3500 

-.0245 

-.0236 

2000 

-.0129 

-.0125 

.4 000 

-.0259 

-.0250 

2250 

- , n 136 

-.0131 

.4500 

-.0271 

-.0262 

2500 

-.0141 

-.0136 

,5000 

-.0283 

-.0273 

2750 

-.0146 

-.0141 

.5300 

-. 029 Z 

-.0203 

3000 

-.0151 

-.0145 

,6000 

-.0301 

-.0291 

3250 

-.0154 

-.0149 

.6500 

-.0308 

-.0296 

350 0 

- .0 157 

-.0152 

.7000 

-.0315 

-.0304 

3750 

- ,0 160 

-.0154 

.7500 

-.0320 

-.0309 

4000 

- .0162 

-.0156 

,8000 

-.0324 

-.031 3 

4250 

-.0163 

-.0150 

,8500 

-.0327 

-.0316 

4500 

-.0164 

-.0159 

,9000 

-.0329 

-.0317 

4 750 

- .0 165 

-.0159 

.9500 

-.0329 

-. 031 P 

5000 

- .0165 

-.0159 

1 .0000 

-.0329 

-.0316 

5250 

- , 0 1 6 4 

-.0150 

1 .0500 

-.0328 

-.0317 

5500 

-.0163 

-.0157 

I .1 000 

-.0326 

-.031 4 

5750 

-.0161 

-.0156 

1.1500 

-.0322 

-.031 1 

6000 

-.0159 

-.0153 

1 .2000 

-.0316 

-.0307 

6250 

-.0156 

-.0151 

1 ,2500 

-.0312 

-.0301 


6500 

-.0153 

-.0147 

1 .3000 

-.0305 

-.0295 

6750 

-.0140 

-.0143 

1 .3500 

-.0297 

-.0287 

7000 

- .0 14 a 

-.0139 

1,4000 

-.0208 

-.0278 

7250 

-.0139 

-.0134 

1 .4500 

-.0277 

-.0266 

7500 

-.0133 

-.0128 

1 .5000 

-.0265 

-.0256 

7750 

-.0126 

-.0122 

1 .5500 

-.0252 

-.0243 

8000 

-.0116 

-.0114 

1 .6000 

-.0237 

-.0220 

0250 

- .01 1 0 

-.0106 

1 ,6600 

-.0219 

-.0212 

8500 

- .0100 

-.0097 

1 .7000 

-.0200 

-.0194 

0750 

- , 0090 

-.0067 

1 ,7500 

-.0180 

-.0174 

9000 

-.0079 

- .0076 

1 ,8000 

-.0158 

-.0153 

5250 

-.0065 

-.0063 

1 .6500 

-.0130 

-.0126 

9500 

-.0047 

-.0045 

1 .9000 

-.0094 

-.0091 

9750 

- .0024 

-.0 0-24 

1 .9500 

-.0049 

-.0047 

noon 

n ,0000 

n .node 

2,0000 

0,0000 

0,0000 
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-5.9658 


Y/P/2= 


4374 


CHORD= 


Z.onnn 


.0551 .1)385 .0877 

.0536 .1850 .196^ 


SLOPfS •OZ/Dv .AT SLOPE POIWTS.FPriM FPOK'T TO PF4P 

.0193 .0181 . 0054-.001 0-.0074-.0141-.OZ14-. 03no-,04nP-.0576-. 1 038 
COPRE5PO^JDT^^6 V/C LOCATIONS FROM FpOWT TO REAR 

.8679 .3393 .4107 .4881 .5536 .6850 .6964 .7679 .8393 .9107 .9881 


CHORo angle cE attack in v-Z PLANE= - , 3 1 39DEGREES 


LOCAL ELEVATTOW 


x/c 

z/c 

(Z/C)COS(OTH) 

DELTA X 

DELTA 2 

(DLT Z)COS(DIM) 

0 . noon 

-.0056 

- .0054 

0.0000 

-.0111 

-.0108 

.0250 

- . 0070 

-.0067 

,0500 

-.0139 

-.0134 

.0500 

- .0083 

-.0081 

. 1 nnn 

-.0167 

-.0161 

.0750 

- .0097 

-.0094 

.1500 

-.0194 

-.0187 

.1000 

-.0109 

-.0105 

.2000 

-.0818 

-.0211 

. 1 250 

-.0119 

-.0115 

.8500 

-.0239 

-.0231 

.1500 

- .0128 

-.0124 

.3000 

-.0257 

-.0248 

.1750 

- .0136 

-.0132 

.3500 

-.0273 

-.0263 

.8000 

- .01 44 

-.0139 

,40nO 

-.0287 

-.0277 

.8850 

-.0150 

-.0145 

.4500 

-.0300 

-.0290 

.8500 

-.0156 

-.0150 

, 5 nnn 

-.031 1 

-.0301 

.2750 

- .0 161 

-.0155 

.5500 

-.0321 

- ,031 0 

,3000 

-.0165 

-.0159 

.6000 

-.0330 

-.0319 

.3850 

-.0169 

-.0163 

.6500 

-.0337 

-.0326 

.3500 

-.0172 

-.0166 

,7000 

-.0343 

-.0332 

.3750 

- .0174 

- .0 166 

.7500 

-.0340 

- .0336 

.4 000 

-.0176 

-.0170 

.8000 

-.0352 

-.0340 

.4850 

- ,0177 

-.0171 

.8SO0 

-.0355 

-.03A3 

.4500 

- .0178 

-.0172 

.9000 

-.0 35 6 

- .0344 

.4750 

- .0178 

-.0172 

.9500 

-.0357 

-.0344 

.5000 

-.0178 

-,0172 

1 , nnno 

-.0356 

-.0344 

.5250 

- .01 77 

-.0171 

1,0500 

-.0354 

-.0342 

.5500 

-.0176 

-.0170 

1 , 1 nno 

-.0351 

-.0339 

.5730 

-.0173 

- .0168 

1.1500 

- ,0347 

-.0335 

.6000 

- .0171 

-.0165 

1 .8000 

-.0342 

-.0330 

.6850 

-.0168 

-.0162 

1.8500 

-.0335 

-.0324 


.6500 

- .0 164 

-.0158 

1 ,3000 

-.0328 

-.0316 

.6750 

-.0159 

-.0154 

1 ,3500 

- .0319 

- .0308 

,7000 

- .0154 

-.0149 

1 ,4000 

-, 03nP 

-.0298 

.7250 

-.nl4e 

-.0143 

1 ,4500 

- ,n?97 

-.0267 

.7500 

-.0142 

-.0137 

1.5000 

-,0?R4 

-.0274 

.7750 

-.0135 

-.0130 

1,5500 

- ,0269 

-.0250 

.8000 

-.0126 

-.0122 

1.6000 

-,n?53 

-.0244 

.8250 

- .01 1 7 

-.0113 

1 ,6500 

-.0234 

-.0226 

.8500 

-.0107 

-.0103 

1,7000 

-.0214 

-.0206 

.8750 

- .0096 

-.0093 

1 ,7500 

-.0192 

-.0186 

,9000 

-.0084 

- ,0081 

1 .soon 

-.0168 

-.0162 

.9250 

- . 0069 

-.0067 

1 ,6500 

-.0139 

-.0134 

.9500 

- .0050 

-.0046 

1 ,9000 

-.0100 

-.0096 

.9750 

- ,0026 

-.0025 

1 ,9500 

-.005? 

-.0050 

.noon 

n . noon 

0,0000 

2,0000 

0.0000 

0,0000 
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Y= -7,?9]3 Y/'P/?= _.:?S 49 rHf!Rr= ?.ortno 

SLOPES. OZ/OY ./iT SLOPE PC I WtS . FfMINT TO REAR 

0565 .0392 .0^60 .C19E .0116 . 0 0*6- , 0 020- . 0087- , 0 1 57- , 0233- . 0322- . 0436- . 061 0- . 1 092 

CORRESPCNDIMG X/C LOCATIOMS FROM FRONT TO REAR 

0536 .1250 .196A .2679 .3393 ,A107 ,4621 .5536 .6250 .6964 .7679 .8393 .3107 .9621 

chord AMGLE op attack IN X-Z PLANE= - . 3&7BDEGREE5 


L0C4I. ELE'/atioM 


x/C 

z/c 

(7/C) COS (DTH) 

DELTA X 

DELTA z 

(Dl.T ZlCCSfDIH) 

. nnno 

-.0060 

-.0065 

.noon 

-.0135 

-.0131 

.0250 

- . 0082 

-.0079 

.0500 

-.016* 

-.0158 

.0500 

-.0096 

- .0093 

. 1 ono 

-.0192 

-.0186 

.0*^50 

-.Olio 

-.0106 

.1500 

- . 0220 

-.0212 

. 1 00(1 

-.0122 

-.0118 

,2000 

-.0245 

-.0236 

.1250 

-.0133 

-.0126 

.2500 

-.0266 

-.0257 

.1500 

-.0142 

-.0137 

.3000 

-.028* 

-.0274 

.1750 

-.0150 

-.0145 

.3500 

-.0300 

-.0290 

.2000 

-.0157 

- ,0152 

,4 000 

-.0-^15 

-.030* 

.2250 

-.0164 

-.0158 

.4500 

-.0328 

-.031 7 

.2500 

-.0170 

-.016A 

.5000 

-.0339 

-.0328 

.2750 

-.0175 

-.0169 

.5500 

-.0349 

-.0337 

.3000 

-.0179 

-.0173 

.6000 

-.0358 

-.0345 

.?250 

-.0182 

-.0176 

.6500 

-.0365 

-.0352 

.3500 

-.0185 

- ,0179 

.7000 

-.0371 

-.0358 

.3750 

-.0188 

-.0181 

.7500 

-.0375 

-.0362 

. 4 (100 

-.0189 

-.0183 

.8000 

-.0379 

-.0366 

.4250 

- . nl90 

-.0184 

.8500 

-.0361 

-.0368 

.4500 

-.0191 

- ,0 1 85 

,9000 

-.0382 

-.0369 

.4750 

- .01 91 

- ,018A 

.9500 

-.0302 

-.0369 

.5000 

- . 0 1 90 

-.0184 

1 , onoo 

-.0381 

-.0360 

.5250 

-.0109 

- ,0 183 

1 .0500 

-.0378 

-.0365 

.5500 

- .01 F? 

-.0181 

1 , 1 000 

-.0375 

- .0362 

.5750 

- .0185 

-,C17R 

1 .1500 

-.0370 

-.0357 

,600n 

-.0162 

-.0176 

1.2000 

-.0364 

-.0351 

.6250 

- .0178 

-.0172 

1 .2500 

-.0357 

- ,0345 


.6500 

-.0174 

-.0168 

1 .3000 

-.0348 

-.0336 

.6750 

-.0169 

-.0163 

1 .3SO0 

-.0338 

-.0327 

,7000 

-.0164 

-.0158 

1,4000 

-,n3?7 

-.0316 

.7250 

T.OI57 

-.0152 

1.4500 

-.0315 

-.0304 

.7500 

- .0150 

-.0145 

1 ,5000 

-.0301 

-.0290 

.7750 

- .0142. 

-.0136 

1 .5500 

-,n?P5 

-.0275 

.Bonn 

-.0134 

-.0129 

1,6000 

-.0267 

-.0258 

,8250 

- . 0 1 24 

-.0119 

1 ,6500 

-.0247 

-.0239 

.8500 

-.0113 

-.0109 

1.7000 

-.0226 

-.0218 

.8750 

-.0101 

-.0098 

1.7500 

-.0203 

-.0106 

,9000 

- .0069 

-.0086 

1 .8000 

-.0177 

-.0171 

.9250 

-.0073 

- .0070 

1 .6500 

-.0146 

-.0141 

.9500 

-.0052 

-.0051 

1 .9000 

-.0105 

-.0101 

.9750 

-.0027 

-.0026 

1 .9500 

-.0055 

-.0003 

,0000 

0 ,0000 

o.onon 

2, nnno 

o.onon 

0 , noon 
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Y= -5.5968 Y/P/E= -.372^ CHORO= 2,nof>n 

SL0PES»D2/DY ./ST SLOPE POJK'TS.PPOM PROMT TO PEAR 

0572 .039J .0277 .0186 .0108 . 0036- . 00 33- , 0 1 02- . 0 1 7A -. 0253- . 03^5-, 0462-, 06* 1 -. 1 1 ^ 0 

corresponding x/c lccattoms from promt to reap 

0536 .1250 .1964 .2679 .3393 .4107 .4021 .5536 .6250 .6964 .7679 .8393 .9107 .9821 


CHORD ANGLE OF ATTACK IN x-Z PLAMe= -.4682DEGREES 


LOCAL ELEVATION 


x/c 

z/c 

(2/C)C0S{DIH) 

DELTA X 

DELTA Z 

(OLT ZlCOSfOTH) 

.8000 

-.0002 

-.0079 

,cnnO 

-.0163 

-.0158 

.025n 

- ,0056 

-.0093 

,0500 

-.0192 

-.0166 

,0500 

-.01 n 

-.0107 

,1 nno 

-.0221 

-.0 21 4 

.0750 

- .01 25 

- .01 20 

,1500 

-.0249 

-.0241 

, 1 oro 

-.013T 

-.0132 

.2000 

-.0274 

-.0265 

.1250 

-.0148 

-.0143 

.2500 

-.0295 

-.0285 

.1500 

-.0157 

-.0152 

,3000 

-.0314 

-.03D3 

.1750 

-.0165 

-.0159 

.3500 

-.0330 

-.0319 

.2000 

-.0172 

-.0166 

,4 000 

-.0344 

-.0332 

,2250 

-.0179 

-.0172 

.4500 

-.0357 

-.0345 

.2500 

-.0184 

-.0178 

,5000 

-.0366 

-.0356 

.2750 

- .01 09 

-.0132 

.5500 

-.0378 

-.0365 

,3000 

-.0193 

-.0186 

.6000 

-.0366 

-.0373 

.3250 

-.0196 

-.0190 

.6500 

-.0393 

-.0379 

.3500 

-.0199 

-.0192 

,7000 

-.0398 

-.0385 

.3T50 

-.0201 

-.0194 

.7500 

-.0402 

-.0389 

.4000 

-.0203 

-.0196 

,8000 

-.0405 

-.0392 

.4250 

- .0204 

- .0 197 

.050 0 

-.0407 

-.0393 

.4500 

- ,0204 

-.0197 

.9000 

-.0408 

-.039* 

.4750 

-.0203 

-.0197 

.9500 

-.0407 

-.0393 

.soon 

-.0202 

-.0196 

1 . nnno 

-.0405 

-.0391 

.5250 

-.0201 

-.0194 

1,0500 

-.0402 

- .0308 

.5500 

-.0199 

-.0192 

l.iono 

-.0398 

-.030* 

.5750 

-.0196 

-.0189 

1,1500 

-.0392 

-.0379 

.6000 

-.0193 

-.0106 

1.2000 

-.0385 

-.0372 

.6250 

-.0169 

-.0182 

1 .2500 

-.0377 

-.036* 


.6S0 0 

-.0104 

-.0178 

1.3000 

-.0368 

-.0355 

.5750 

-.0179 

-.0172 

1.3500 

-.0357 

-.03*5 

.7000 

-.017? 

-.0167 

1,4000 

-.0345 

-.0333 

.7250 

- .0166 

-.0160 

1 .*500 

-.0331 

-.0320 

.7500 

-.0158 

-.0153 

1 .5000 

-.0316 

-.0306 

.7750 

-,nl5o 

-.0145 

1 . 5‘5 0 0 

-.0300 

-.0209 

.0000 

-.0140 

-.0136 

1.6000 

-.0281 

-.0271 

.0250 

-.0130 

-.0125 

1 .6500 

-.0259 

-.0251 

.8500 

-.one 

-.0114 

1,7000 

-.0237 

-.0228 

,8750 

-.0106 

-.0103 

1.7500 

-.0212 

-.0205 

,9000 

- . 0093 

-, OOPO 

1 ,8000 

-.0105 

-.0179 

,9250 

- ,0076 

-.0074 

1 .8500 

-.0152 

-.0147 

.9500 

-.0055 

-.0053 

1.9000 

-.Olio 

-.01 06 

.9750 

-,002fl 

-,no?7 

1 .9500 

-.0057 

- .0055 

.0000 

o.oono 

0 ,0000 

2.O000 

O.oono 

0 .0000 
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056B 

0536 


Y= -3.9023 Y/n/2= -.igoO CHORD= Z 


SLOr’ES«DZ/OX« AT SlCPE POINTS. FPPM FRONT TO REAR 

.0385 .0,265 .0172 .0092 . 00 1 9- . 0052- , 0 1 2a- . 0 1 96- . 0276- . 0370- , 0490- . D67A- . 1 1 85 

correspcndinc x/c locaticms frpm front to rear 

.1250 .1964 .2679 .3393 .4107 .462] .5536 ,6250 .6964 .7679 .8393 .0107 .9821 


CM^RO angle of attack TN x-a PLANE=: -.581 bdegrces 


LOCAL tlEVATlON 


x/c 

z/c 

(Z/C)CC5 IDTM) 

DELT/^ X 

DELTA Z 

(QLT Z>CDS(DTH) 

.0 000 

-.9102 

- . 0 09 8 

. 0 00 0 

- .0203 

- ,0 196 

.0250 

-.0116 

- ,011 2 

.0500 

-.0232 

-.0224 

.0500 

-.0130 

-.0126 

. 1 Ono 

- ,0260 

-.0252 

.0750 

-.0144 

-.0139 

.1500 

-.0206 

-.0278 

.1000 

-.0156 

-.015] 

, 2000 

-.0313 

-.0302 

. 1 250 

-.0167 

-.0161 

.2500 

-.0334 

-.0322 

.1500 

-.0176 

-.0170 

. 3000 

-.0352 

-.0340 

. 1 750 

-.0184 

-.0177 

.3500 

- , 0367 

-.0355 

.2000 

-.0191 

-.0104 

,4000 

-.03P1 

-.0366 

.P25A 

-.0197 

-.01 90 

.4500 

-.0303 

-.0380 

.2500 

- . 0202 

-.0195 

.5000 

-,0404 

-.0390 

.2750 

- . o206 

-.0199 

.55f>0 

-.0413 

-.0399 

.3000 

-.0210 

-.0203 

.600 0 

-.0420 

- . 0406 

.3250 

- .0213 

-.0206 

,6500 

-.0426 

-.0412 

. 3500 

- .0215 

-.0208 

,7000 

-.043] 

-.0416 

.3750 

- .021 7 

-.0210 

.7500 

-.0434 

-.0420 

. 4 000 

-.021 6 

-.0211 

.eopn 

-.0436 

-.0422 

.^250 

-.0219 

-.0211 

.8500 

- ,0437 

-.04ZZ 

.4500 

-.0218 

- .021 1 

,9ort0 

-.0437 

-.0422 

.4 750 

-.0218 

-.0210 

.9500 

-.0435 

-.0420 

. 5 0 C n 

-.0216 

-.0200 

1 .noon 

-.0A32 

-.0418 

.5250 

-.0214 

-.0207 

1 .0500 

-.0426 

-.041A 

.5500 

-.0211 

-.0204 

1 . 1 non 

-.0423 

-.0409 

.5750 

- , 0208 

-.0201 

1 .15nO 

-.0416 

-.0402 

.6000 

- . 0206 

-.0197 

1.2000 

-.0409 

-.0395 

.6250 

-.0200 

-.0193 

1 .2500 

-.0399 

-.0386 


,6500 

-.0194 

-.0186 

1,3000 

-.0389 

-.0376 

.6750 

-.0189 

-.0182 

1 .3=00 

-.0377 

-.036A 

,7000 

-.0182 

-.0176 

1 ,4000 

-.0364 

-.0351 

.7250 

-.0175 

-.0169 

1,4=00 

-.0349 

-,0337 

.7500 

-.0166 

-.01 61 

1 .=000 

-.0333 

-.0321 

.7750 

-.0157 

-.0152 

1 .=F00 

-.0315 

-.0304 

.8000 

-.0147 

- .0142 

1.6000 

-.0294 

-.0284 

.8250 

-.0136 

-.0131 

1 ,A=nn 

-.027a 

-.0263 

,8500 

-.0124 

-.0120 

1 .7000 

-.0247 

-.0239 

.8750 

-.0111 

-.0107 

1 .7SO0 

-.0222 

-.0214 

,9000 

-.0097 

-.0093 

1.8000 

-.0193 

-.0187 

.9250 

-.0079 

-.0077 

1,8=00 

-.0159 

-.0153 

.9500 

- ,0057 

-.0055 

1 ,8000 

-.0114 

-.01 10 

.9750 

-.0030 

-.0029 

1 .8 = 00 

-.0059 

-.0057 

, 0000 

p.noon 

n.oooo 

2,0000 

0.0000 

0 . onoo 


noon 
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Y= -2.2076 Y/n/2= -.1075 CHDP0= 2.0000 


c( f!PFc ,P2 /Dv . £T SLOPE POINTS. PPPV FPOMT TO FEAR 

,0536 .0350 .0226 ,0134 . 0 o53- . 0 02 1 - , 0092- . o ] 6£- . 0236- , 03 1 7- , 04 1 1 - , 0532- .07 1 8- . 1 ?37 

rORPFPPOKP ir p y/c LOCfiTTONS FPOM FRONT TO RE/'R 

.0536 ,1250 ,1964 ,2679 ,3393 ,41o7 .4821 .5536 .6250 .6964 .7679 .8393 .9107 .9821 


CHOrr /'MOLE OF ATTACK JK y-7 PLANE- -,8n850EGREES 


LOCAl ELEVATIOM 


x/c 

z/c 

(Z/C) CCS (OIH) 

DELTA >( 

DELTA 7 

(OL.T Z)cnS(OTH) 

0.0000 

-.014] 

-.0136 

0 . oooo 

-.0282 

-.0273 

.0250 

-.0155 

-.0149 

,050 0 

-.0309 

-.0299 

,0500 

-.0165 

-.0162 

, 1 onn 

- ,0336 

-.0325 

.0750 

- ,0 161 

- .0175 

.1500 

-.0363 

-.0350 

, J non 

-.0193 

-.0186 

.2000 

-.0386 

-.0372 

.1250 

-.0202 

-.0196 

.2500 

-.0A05 

-.0391 

.1500 

- .021 0 

-.0203 

.3000 

-.0421 

-.0407 

.1750 

-.0217 

-.0210 

.350 0 

-.0435 

-.0420 

.2000 

-.0223 

-.0216 

.4000 

-.0447 

-.0431 

.2250 

-.0229 

-.0221 

,4500 

-.0457 

-.0441 

.2500 

-.0233 

-.0225 

.5000 

-. 0A66 

-.0450 

.2750 

- .0236 

-.0228 

.5500 

-.0473 

-.0457 

,3000 

-.0239 

-.0231 

.6000 

-.0478 

-.0462 

.3250 

-.0241 

-.0233 

.6500 

-.0482 

-.0466 

.3500 

- ,0243 

- ,0234 

,7000 

-.0485 

-.0469 

.3750 

- .0243 

-.0235 

.7500 

-.0487 

-.0470 

,4000 

- .0243 

-.0235 

.6000 

-.0487 

-.0470 

.4250 

-.0243 

-.0234 

.6500 

-.0486 

-.0469 

.4500 

- .0242 

-.0233 

.9000 

-.0483 

-.0467 

.4750 

-.0240 

-.0232 

.9500 

-.0480 

-.0463 

.5000 

-.0237 

-.0229 

1 , oono 

-.0475 

-.0456 

.525 0 

-.023* 

-.0226 

1 ,0500 

-.0469 

-.0453 

.5500 

-.0231 

-.0223 

1 .1000 

-.0461 

-.0446 

.5750 

- .0226 

-.0219 

1.1500 

-.0453 

-.0437 

.6000 

-.0221 

-.0214 

1 .2000 

-.0443 

-.0*26 

,6250 

- .0216 

-.0209 

1,2500 

-.0432 

-.0417 


.6500 

-.0210 

-.0202 

1 .3000 

-.0419 

-.0405 

,6750 

-.0203 

-, 01R6 

1 . 3500 ’ 

-,(14 05 

-.0392 

,7000 

-.0195 

-.0188 

1 .4000 

-.0390 

-.0377 

.7250 

-.0187 

-.0180 

1.4500 

-.0373 

-.0361 

.7500 

-.0177 

-. 017 ) 

1 .5000 

-.0355 

-.0343 

.7750 

- .0167 

-.0162 

1 .5500 

-.0335 

-.0323 

,8000 

-.0156 

-.0151 

1 .6000 

-.0312 

-.0302 

.8250 

- ,01 44 

-.0139 

1 .6500 

-.0288 

-.0278 

,8500 

-.0131 

-.0126 

1,7000 

-.0261 

-.0252 

.8750 

- .01 1 7 

-.0113 

1,7500 

-.0234 

-.0226 

.9000 

-, nl 02 

- .0098 

1 .8000 

-.0203 

-.0196 

.9250 

-.0083 

- . 0080 

1 .8500 

-.0166 

-.0161 

.9500 

- . n060 

-.0056 

1 .9000 

-.0119 

-.nns 

,975 0 

-.0031 

-.0030 

1 ,9500 

-.0062 

-.0060 

. 0000 

0 , nono 

0 , oonn 

2,0000 

0, nooo 

o.oooo 
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6803 


Y/P/2= 


0331 


CHOPD= 


2 , nnoo 


SL<^Pf5«D2/Dy.«T SLOPE POTMS.FPO*^ FpOKT TO PEflF 
P39fe ,0201 .00 7S-.0023-.nl05-,Ol7B-.02^6-.03l 1 0378- . 0^50- . 0534- . 064* OS 1 9- , 1331 

^0PPESP0^ ^T^c- y/c locattoms ppom fpcnt to peap 

0536 .1250 .1964 .2679 .3393 ,4107 '.4821 .5536 .6250 .6964 .7679 .B393 ,9107 ,9821 


CHOPn AMOLF of attack TN y-Z PLAHE= -1 .FOOPOFCPFE*: 




LOCAi ELEVrtTlCM 




x/C 

z/c 

fZ/C) COS (DTH) 

DELTA X 

DELTA z 

(OLT ZlcnSfDTHi 

,0000 

- .0279 

- .0270 

,0000 

-.0559 

-.0540 

.0250 

- .0269 

- .0279 

.0500 

-.0579 

-.0559 

.0500 

- .f'299 

-.0269 

, 1 non» 

-.0599 

-.0578 

.0750 

- .0309 

- .0298 

.1500 

-.061 6 

-.0597 

. 1 OOO 

-.0317 

-.0306 

.2000 

-.0634 

-.0612 

.1250 

- .0323 

-.0312 

.2500 

- .0646 

-.0624 

.1500 

- .0327 

-.0316 

.3000 

-.0654 

-.0632 

.1750 

-.0339 

-.0319 

.3500 

-.0660 

-.0638 

.2000 

-.0332 

- .0321 

,4 000 

-.0665 

- , 0642 

,2250 

- .0334 

-.0322 

.4500 

-.0667 

-.0645 

.2500 

- , 0 334 

-.0323 

,5000 

-.0665 

-.0645 

.2750 

- ,0334 

-.0322 

.5500 

-.0667 

- ,0645 

, 3000 

-.0333 

-.032] 

.6000 

-.0665 

-.0642 

.3250 

- .0331 

-.0315 

.6500 

-.0661 

-.0639 

.7500 

- ,0326 

-.0317 

,7000 

-.0656 

-.0634 

.3750 

-.0725 

- .031 4 

,7500 

-.0650 

-.0628 

,4 000 

-.0321 

-.0310 

.8000 

-.0662 

-.0620 

.4250 

-.0316 

-.0306 

,8500 

-.0633 

-.061 1 

,4500 

-.031] 

- .030 1 

.9000 

-.0623 

- , 060 2 

,4750 

- ,0306 

-.0295 

.9500 

-.061 1 

-.0591 

.500P 

- . 0299 

- . 0289 

1 ,0000 

-.0599 

-.0578 

,5250 

-.0293 

-.0263 

1.0500 

-.0585 

-.0565 

,5500 

-.0285 

-.0275 

1 .1000 

-.0570 

-.0551 

.5750 

- , 0277 

-.0268 

1,1500 

-.0554 

-.0536 

.6000 

-.0269 

-.0259 

1 ,2000 

-.0537 

-.0519 

.6250 

-.0255 

-.0251 

1 .2300 

-.0519 

-.0501 


.6500 

-.0250 

-.0241 

1 ,3000 

-.0499 

-.0482 

.6750 

-.0239 

-.0231 

1 .3500 

-.0479 

-.0462 

,7000 

- ,0228 

-.0221 

1 .4000 

-.0457 

-.0441 

.7250 

-'.0217 

-.0209 

1.4500 

-.0433 

-.0419 

.7500 

- ,0204 

-.0107 

1 .5000 

-.0409 

-.0395 

.7750 

-.0191 

-.0185 

1 .5500 

-.0382 

-.0369 

,8000 

-.0)77 

-.0171 

1,6000 

-.0354 

-.0342 

.8250 

- .0162 

-.0156 

1.6500 

-.0324 

-.031 3 

.8500 

- .0146 

-.0141 

1 ,7000 

-.0291 

-.0282 

.8750 

-.0129 

-.0125 

1 .7500 

-.0256 

-.0249 

.9000 

-.nil 1 

-.0107 

1 .8000 

-.0223 

-.0215 

.9250 

-.0090 

-.0087 

1.8900 

-.0181 

-.0175 

,9500 

- , 0064 

-.0062 

1 .9000 

-.0129 

-.0124 

.9750 

-.0033 

-.0032 

1 .9500 

-.0067 

-.0064 

,0000 

o.noon 

0,0000 

2,0000 

o.noon 

0,0000 
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Y= - 20. 3397 v/n/2= -,99nl CHCRD= 


2050 .155C .1229 .0962 .0774 


SLf^PES*OZ/DX.AT SL0*PE POINTS. F/?nM FRONT TO REAR 

.0587 .04ia .0239 .0061-.0130-. 03*9-. 0626-. 10^4-. 219A 

pop r|T e; po^|^ T^ P LPfATirMS FROM FROM TO PFAR 


0536 .1250 .1964 .^679 .3393 .Al07 .4821 .5536 .6250 .6964 .7679 ,'8393 .6>107 ,<i821 


CHOPT ANGLF OF ATTfiOK* IM x-Z. PL6^E= 1 , 08660EGREES 
local ELEVATirM 


x/c 

7/C 

(Z/C) CCS (DIH) 

DELTA X 

DELTft z 

(DLT ZICPSIDTH) 

n , 0 0 0 n 

.0329 

.0065 

0 , 0 n n 0 

.0294 

.0076 

.0250 

.0270 

.0072 

.0 22J 

.0248 

.0064 

.0500 

. 0 226 

.0 059 

.0447 

.0202 

.0052 

.0750 

,0176 

.0046 

.0670 

.0157 

,0041 

.1000 

.0130 

.0034 

. 0894 

.0116 

.0030 

.1250 

.0089 

.0023 

.1117 

,0079 

.0020 

. 1 5nn 

. 0 052 

.0013 

.1341 

.0046 

.001 ? 

.1750 

.ooia 

.onns 

.1564 

.0016 

.0004 

. 2onn 

- .001 3 

-.0003 

.1788 

-.0012 

-.0003 

.2250 

- . 0 04 3 

- .0011 

.201 1 

-.0036 

-.0010 

.2500 

- .0070 

-.0018 

.2234 

-.0063 

-.0016 

,2''50 

-.0095 

- .0025 

.2458 

-.0085 

-.0022 

.3000 

-.0118 

-.0031 

.2681 

-.0105 

-.0027 

.3250 

-.0139 

- ,0036 

.2905 

-.0124 

-.003? 

.3500 

-.0159 

-.0041 

.3128 

-.0142 

-.0037 

.3750 

-.0176 

- ,00*6 

.3352 

-.0158 

-.006 1 

,4 000 

-.0193 

- .0050 

.3575 

-.0172 

-.0045 

.4250 

- .0207 

-.0054 

.3798 

-.0105 

- .0048 

.4500 

- . 0220 

-.0057 

.4022 

-.0197 

-.0051 

.4750 

-.0 2 32 

- , 0060 

.4 245 

-.0207 

-.0054 

,5000 

- . 0?42 

- .0063 

.4469 

-.021 6 

-.0056 

.5250 

- .0250 

-.0065 

.4692 

-.0224 

-.0056 

.5500 

-.0257 

- ,0067 

.4916 

-.0230 

-.0059 

.5750 

-.0262 

-.0068 

.5139 

-.0235 

-.0061 

. 6000 

-.0266 

-.0069 

.5363 

-.0238 

-.0062 

.6250 

-.0269 

-.0070 

,5566 

- . n 24 0 

-.0062 


.f. = no 

- .0269 

-.0070 

.5609 

-,0?4l 

-.006? 

,67‘^n 

-.o?F 8 

-.0069 

.6033 

-.0240 

-.006? 

.7000 

-.0266 

-.0069 

.6256 

-.0238 

-.0061 

,7? = n 

- .0261 

-.0068 

.6480 

-.0234 

-.0-060 

. 7 ‘=;nn 

-.0255 

-.0066 

.6^03 

-.0228 

-.0059 

.77>=n 

-.0247 

-.0064 


-.0221 

-.0057 

,poon 

-.0236 

- .0061 

.7150 

-.021 1 

-.0055 

,p?Fn 

- ,0223 

- .0058 

.7573 

-.0199 

-.005? 

,8*^00 

- .0207 

-.0054 

.7597 

-.0185 

-.0048 

.P7‘=0 

-.0190 

-.0049 

.7820 

-.0170 

- , 0044 

.Rono 

-.0170 

-.0044 

.8044 

-.0152 

-.0039 

.Q?Rn 

-.0143 

-.0037 

.8267 

-.0128 

-.0033 

.°son 

-.0105 

-.0027 

.8491 

-.0094 

-.0024 

.0750 

-.0055 

-.0014 

.8714 

-.0049 

-.0013 

. 0000 

0 . noon 

0,0000 

,0938 

o.onoo 

n . n on 0 


.8938 
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-?n , (167j> 


Y / P / 2 = 


9769 


CHnpn= 


1 .5688 


Y = 

SLr<P£«: . PZ/DY , /> T slope P0I^T<^,FRnM FPPNt TC REAR 

2386 .1376 .07-'5 .0368 • " . n 139- . 03 1 5- , 0 A67- . 0 60 7- . o 7^3- . 08&6- . 1 063- . 1 333- . ? 1 9 7 

CPPFESPO^PT^ 6 X/C LCCATIONS FROM FPPA'T TO REAR 

0536 .J250 .196A .2679 .3393 .4107 .4fizi .5536 .6250 .6964 .7675 .8393 .9107 .9821 

ChORP ANPl.F PF ATTACK IF x_7 Pl.AK'Fs _.f ftpRPFP.RFFc; 


l-PCAL FLFVATICr’ 


Y /P 

2/C 

(2/C > CPS (PIH ) 

PF|. T A y 

DELTA 2 . 

(OLT Z.)rOF(PTH) 

n , n oon 

-.01 16 

-.0030 

n .oono 

-.01 B1 

-.0047 

.026P 

-.0176 

- . 0046 

.0 392 

-.0276 

-.0071 

. osnp 

-.0237 

-.0061 

. 0704 

-.0371 

-.0096 

.0750 

-.0294 

-.0076 

.1177 

-.0462 

-.0119 

, 1 onf> 

- . 034 a 

-.0069 

.1569 

-.0539 

-.0140 

. 1 250 

-.0383 

-.0099 

.1961 

-.0601 

-.0155 

.1500 

-.0414 

-.0107 

.2353 

-.0649 

-.0168 

. 1 750 

- .0438 

-.0113 

.2745 

-.0688 

-.0178 

.?onn 

- . 0459 

-.0119 

.3138 

-,n7an 

-.0186 

.2250 

-.0476 

-.0123 

.3530 

-.0747 

-.0193 

.2500 

- . 0489 

-.0127 

.3922 

-.0768 

-.0199 

.2750 

-.0499 

-.0129 

.4314 

-.0783 

-.0203 

.3000 

- . 0506 

-.0131 

.4706 

-.0794 

-.0206 

.3250 

-.0511 

-.0132 

.5090 

-.0801 

-.0207 

.3500 

- .0513 

-.0133 

.5491 

-.0804 

-.0208 

.3750 

- .051 3 

-.0133 

.5883 

-.0004 

-.0208 

.4 000 

- .051 1 

-.0132 

.6275 

-.0802 

-.0207 

.4250 

-.0507 

-.0131 

.6667 

-.0796 

-.0206 

.4500 

- . 0502 

-.0130 

.7059 

-.0788 

-.0204 

.4750 

-.0495 

-.0128 

.745 P 

-.0777 

-.0201 

.5000 

-.0487 

-.0126 

.7044 

-.0764 

-.0198 

.5250 

-.0478 

-.0124 

.8236 

-.0749 

-.019^ 

.5500 

-.0467 

-.0121 

.8628 

-.0732 

-.0190 

.5750 

-.0455 

-.0116 

.9020 

-.0713 

-.0185 

.6000 

-.0441 

-.0114 

.9413 

-.0693 

-.0179 

.6250 

- .0427 

-.0110 

.9 P 05 

-.0670 

-.0173 


.oc no 

-.0411 

-.0106 

1.0197 

-.0645 

-.0167 

.6750 

- .0394 

-.0102 

1.0569 

-.0618 

-.0160 

.7000 

- .0376 

-.0097 

1 .0981 

-.0590 

-.0153 

.7250 

-.0357 

-.0092 

1.1373 

-.0559 

-.0145 

.7500 

-.0336 

-.0087 

1.1766 

-.0527 

-.0136 

.7750 

-.0314 

- .OOP J 

1.2158 

-.0493 

-.0128 

.POOO 

-.0291 

-.0075 

1.2550 

-.0456 

-.01 18 

.P250 

-.0265 

-.0069 

1 .2942 

-.0416 

-.0108 

.F50n 

-.0239 

-.0062 

1.3334 

-.0375 

-.0097 

.P7'^n 

-.0212 

-.0055 

1.3727 

-.0332 

-.0086 

.Poor 

-.0183 

-.0047 

1.4119 

-.0287 

-.0074 

.9250 

-.0149 

-.0038 

1.451 1 

-.0233 

-.0060 

.R500 

-.0106 

-.0027 

1.4903 

-.0166 

-.0043 

.P750 

-.0055 

-.0014 

1 .5295 

-.0086 

-.0022 

.0000 

0 , noon 

0,0000 

1 .5688 

0.0000 

o.nono 
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Y= -19,1528 Y/R/?= -.9323 CHnpn= 

«;| fiPFc.n7/rx, AT slope points. prov ppriNT TO rear 

-. no 3 A -, n ] 21 -, 0 ] 76 -, 0217 -. 0249 -. 0276 -. 0299 -. 0320 -, n 3 A 2 -. 03 P 7 -. 040 n -, 04 A 7 -, 0 =? 7-, 0769 

roppFsprrnihP x/c. LCOATiOKis fro»i fpont to rear 

.0536 .1250 .1964 .2679 .3393 , 4 l 07 , 4 B 2 l .5536 .6250 .6964 ,7679 .8393 .9107 ,9821 


OHCPr Ar'PLf of attack TK v-Z PLAKf= -1 .7qi BCFGREES 


I OCAL FLFVATION 


x/C 

Z/C 

(Z/OCCS (DIH) 

DELTA X 

DELTA 1 _ 

(DLT 2 .)rrS(nTH) 

n.opon 

-.0311 

-.0300 

0 , nnno 

-.0622 

-.0601 

.0250 

- ,03} 0 

- , 0300 

. osnn 

-.0621 

-.055>9 

.0500 

-.0310 

-.0299 

,1 poo 

-.0619 

-.0598 

.0750 

-.0.309 

- .0296 

.1500 

-.0617 

-.0596 

,1000 

-.0307 

-.0296 

.2000 

-.0614 

-.0593 

,1250 

-.0304 

- . 0 29 4 

.2500 

-.0608 

-.0586 

.1500 

- . 0301 

-.0291 

.3000 

-.0602 

-.0581 

,1750 

-.0297 

- . 0287 

.3500 

-.0594 

-.0574 

,2000 

-.0293 

- ,0203 

,4000 

-.0565 

-.0565 

.2250 

- . 0238 

-.0278 

.4500 

-.0576 

-.0557 

.2500 

-.0283 

-.0273 

.5000 

-.0566 

-,0547 

.2750 

-.0275 

-.0266 

.5500 

-.0555 

-.0537 

,3000 

-.0272 

-.0263 

,6000 

-.0544 

-.0526 

,3250 

-,026»^ 

-.0257 

.6500 

-.0532 

-.0514 

. 3‘=00 

-.0260 

-.0251 

,7000 

-.0520 

-.050? 

,37^0 

-.0253 

-.0245 

.7500 

-.0507 

-.0490 

,4000 

-,0?47 

-.0236 

,8000 

-.0494 

-.0477 

.4250 

- , 0240 

-.0232 

.8500 

-.0480 

-.0463 

,4‘=^00 

-.0233 

-.0225 

,9000 

-.0466 

-.0450 

.4750 

- .0225 

-.0218 

.9500 

-.0451 

-.0436 

.5000 

- .0215 

- .021 1 

1 , oonO 

-.0436 

-.0421 

,5350 

-.0210 

- . 0203 

1,0500 

-.0421 

-.0406 

.5500 

-.0202 

-.0195 

1 .1000 

-.0405 

-.0391 

,5750 

-.0)?4 

-.0188 

1 .1500 

-.0389 

-.0375 

,6000 

- .01 86 

-.0160 

1 .2000 

-.037? 

-.0359 

.6250 

-.0170 

-.0172 

1 .2500 

-.0355 

-, 0T43 


,6500 

-.0169 

-.0163 

1 .3000 

-.0338 

-.0326 

.6750 

-.0160 

-.0155 

1 .3500 

-.0320 

- , 0309 

,7000 

-.0151 

-.0146 

1 .4000 

-.O30Z 

-.0292 

.7250 

-.0142 

-.0137 

1.4500 

-.0283 

-.0274 

,7500 

-.0132 

-.0128 

1 .5000 

-.0264 

-.0255 

.7750 

-,0l2? 

-.one 

1 .5500 

-.0244 

-.0236 

.8000 

-.nil? 

-.0108 

1 . 6000 

-.0224 

-.0216 

.8250 

-.0101 

-.0098 

1.6500 

-.0202 

-.0195 


- , nogn 

-.0087 

1 ,7000 

-.OlPO 

-.0174 

.P7P0 

-.0070 

-.0076 

1 ,7sno 

-.0157 

-.0152 

,9000 

-.0067 

-.006* 

1 ,Pono 

-.0133 

-.01 29 

.9250 

-.0053 

-.0051 

1 ,8500 

-.0106 

-.0103 

.5500 

- .0037 

-.0036 

1 .9000 

-.0075 

- .0072 

.9750 

-.0019 

-.0019 

1.9500 

-.OO3P 

-.0037 

,0000 

0 , oOoo 

n ,0000 

2.0000 

n.onon 

n.nnno 


2.0000 
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Y= -17.A5g3 Y/R/e= -.8498 rHORP= 2.nonO 

51 OPER ,DZ/PV T 9l.nP£ r R I h TS , Ppr.'l FRONT TO PFAR 

.nl3B .0 038-. Of’ ^6-.fl0 78-.nlcl-.nl 6n-.nl S&-.0 235-. 0 273-.0 31 6-, n3fts-, 04 2S-.0528-, 0 806 

ropRFSPorTiNo x/r lpeatiom?; FPot' front to rear 

.0536 .1250 .1964 .2679 .3393 .4107 .^821 .8536 .62S0 .6964 .7679 .8393 .9107 .9&21 


CHOnn ar'FI r OF attaTK T^! X-7 FLANF= -i . ?77 '=OFPRFFf 


Lpoal FiFVATTrr 


v/C 

z/c 

(Z/OrOF (OTP) 

DELTA X 

delta z 

(PIT 2)PP'^(nTH) 

0 . 0000 

- .0223 

-.0215 

n .0000 

- , 0446 

-.0431 

.0250 

-.0227 

-.0219 

.0500 

-.0453 

-.0438 

.0500 

-.0230 

-.022? 

. 1 n n n 

-.0460 

-.0444 

.0750 

-.0233 

-.0225 

. 15nn 

-.0467 

-.0451 

. 1 0 0 n 

- .0236 

-.0228 

. 20 n n 

-.0471 

-.0455 

. 1 250 

-.0237 

-.0229 

,2500 

-.0474 

-.0458 

. 15P0 

- .0238 

- .0230 

,3000 

-.0475 

- ,0459 

.1 75 0 

- .0238 

-.0230 

.3500 

-.0475 

-.0459 

,2000 

-.0237 

-.0229 

,4onn 

- .0474 

-.0458 

.2250 

- .0236 

-.0228 

,4500 

-.0472 

—.0456 

.2500 

-.0235 

- .0227 

.5000 

-.0469 

-.0453 

.2750 

-.0233 

-.0225 

.55nn 

-.0466 

-.0450 

,jnon 

-.o?3i 

-.0223 

,6000 

-.0461 

-.0445 

.3250 

- .0228 

- .0220 

.6500 

-.04 56 

-.0440 

,350n 

- .0225 

-.0217 

,7000 

-.0450 

-.0435 

.3750 

-.0222 

-.0214 

.7500 

-.0443 

-.0428 

.4 000 

-.0218 

-.0210 

.fiOOO 

-.0436 

-.0421 

.4250 

-.'o2l4 

- . 0207 

.8500 

-.042g 

-.0413 

.4500 

- .0210 

-.0202 

,9000 

-.0419 

-.0405 

,4750 

-. 0205 

-.019B 

.9500 

-.0410 

-.0396 

,'=000 

-.0200 

-.0193 

1 , noon 

-.0400 

-.0386 

.5250 

-.0194 

-.0188 

1.0500 

-.0389 

-.0376 

.5500 

-.0189 

-.0182 

1 . 1 non 

-.0378 

-.0365 

.5750 

-.0 183 

-.0177 

1.1500 

-.0366 

-.0353 

,6000 

-.0177 

-.0171 

1 ,2000 

-.0353 

-.0341 

.6250 

-.0170 

- .0164 

1 .2500 

-.0340 

-.0326 


,6500 

-.0163 

-.0157 

1 ,3000 

-.0326 

-.0315 

.6750 

-.0155 

-.0150 

1.3500 

-.0311 

-.0300 

.7000 

-.0148 

-.0143 

1 ,4onp 

-.0295 

-.0285 

.7250 

-.0140 

-.0135 

1 .4500 

-.0279 

-.0270 

.7500 

-.0131 

-.0127 

1 .5000 

-.0262 

-.0253 

.7750 

-.0122 

-.one 

1 ,5500 

-.0244 

-.0236 

,8000 

-.0112 

-.0109 

1 ,6000 

-.0225 

-.0217 

.0250 

-.0102 

-.0099 

1.6500 

-.0204 

-.0197 

,8500 

-.0092 

- ,0088 

1.7000 

-.0163 

-.0177 

.8750 

-.OOfiO 

-.0078 

1.7500 

-.0161 

-.0155 

.9000 

- ,0069 

-.0066 

1 .8000 

-.0137 

-.0133 

.9250 

- .0055 

-.0053 

1 .8500 

-.0111 

-.0107 

.9500 

-.0039 

-.0038 

1.9000 

-.0078 

-.0076 

.9750 

-.0020 

-.0019 

1 .9500 

-.0040 

-.0039 

,0000 

0 , nooo 

0.0000 

a, 000 0 

0,0000 

n.nnoo 
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Y= -IS, 7638 V/r./a= -.7673 CHOPO= E.OOno 


5L<^PE5»nz/CX.*/'T SI.OPF PT I h'T , FPOM fppmt TO REAR 

n£io ,nr:95 . r p 19-. on4 n-. nnfj 1 0 U7-, o 1 ei 0 224- . 0270- . 03 1 9-. 0376- . f'ASo-, o563- , osfln 

CORRESPONCTNG X/C LOCATTOWF PROM FRONT TO REAR 


0536 .li’50 .196* .2679 .3393 .4107 .4821 .5536 .6250 ,6964 ,7679 ,8393 ,9107 .9821 


rhOPO A^FLt. PF ATTflfK TM v-1 P1.ANE= - ] . 19870FORFFS 


L P C A I El E A T T r M 


x/C 

z/c 

(Z/C) PPS (DTH) 

delta y 

DELTA z 

lOLT z)rn5(PTH) 

0 , r 0 0 n 

-.0209 

-.0202 

0 . 0 n n n 

-.0418 

- . 0404 

. 0250 

-.0215, 

-.0207 

,0500 

- .0429 

-.0415 

.0500 

-.0220 

- . 021 2 

, 1 0 n 0 

-.0440 

-.0425 

.0750 

-.0225 

-.0217 

.1500 

- . 0450 

- . 0435 

,1000 

- .0229 

- .0221 

,7000 

-.0458 

- .04*3 

. ] 250 

- .0232 

- .0224 

. 250 0 

-.046* 

-,044£ 

. 1500 

- .0234 

- .02 26 

. 3000 

-.0468 

-.0452 

.1750 

-.0233 

-.0??7 

.3500 

-.0470 

-.0454 

.2000 

- . 0236 

-.0P?8 

, 0 0 n 

-.0477 

-.04 55 

.2250 

-.0236 

-.n??8 

.4500 

-.0472 

-.0456 

.2500 

-.0236 

-.0728 

, 5000 

-.0471 

-.0455 

.2750 

-.0235 

-.0227 

.5500 

-.0469 

-.0453 

.3000 

- .0233 

- . 0 F?5 

.6000 

-.0467 

-.0451 

.3250 

-.0231 

-.0224 

,6500 

-.0463 

-.0447 

.3500 

-.0229 

-.0221 

.7000 

- , 0458 

-.0463 

.3750 

-.0227 

-.0219 

.7500 

- ,0453 

-,04T6 

,4000 

- .0224 

-.0216 

.goon 

-.0447 

-.0432 

.4250 

- .0220 

-.0213 

.8500 

-.04*0 

-.0425 

.4500 

-.0216 

- ,0709 

.9000 

-.0*33 

-.0418 

.4750 

-.0212 

-.0205 

.9500 

-.0424 

-.0410 

.5000 

-.0207 

- .0200 

1 ,0000 

-.0415 

- .0401 

.5250 

- .0202 

- , ni9f. 

1 .0500 

-.0405 

-.0391 

.5500 

-.0197 

-.0190 

1 . 1 000 

-.0394 

-.0381 

.5750 

- .0191 

-.0185 

1 .1500 

-.0383 

-.0370 

,6000 

-.0185 

-.0179 

1 .2000 

- . 0370 

-.0350 

.6250 

-.0179 

-.0173 

1 ,2500 

-.0357 

-.0345 


.6500 

-.0172 

-.0165 

1 .3000 

-.0344 

-.0332 

.6750 

- ,0164 

-.0159 

1 .3500 

-.0329 

-.0318 

.7000 

-.0157 

-.0151 

1,4000 

-.0313 

-.0302 

.7250 

-.0l4g 

-.0143 

1 .4500 

-.0297 

-.0286 

.7500 

-.0140 

-.0135 

1 .5000 

-.0279 

-.0270 

.7750 

-.0130 

-.0126 

1 .5500 

-.0261 

-.0252 

,8000 

-.0120 

-.0116 

1 .6600 

-.0241 

-.0232 

.8250 

-.0110 

-.0106 

1 .6500 

-.0219 

-.0212 

.8500 

- .0098 

-.0095 

1 .7000 

-.0197 

-,0190 

.8750 

-.0067 

- ,0084 

1 ,7500 

-.0174 

-.0168 

.9000 

- ,0074 

- ,0077 

1 .0000 

-.0149 

-.0144 

.9250 

- . 0060 

-.0056 

1.8500 

-.0120 

-.0116 

,9500 

- .0043 

-.0041 

1 .9000 

-.0005 

-.0002 

.9750 

-.0022 

-.0021 

1,9500 

-.0044 

-.0042 

.0000 

0 . oono 

0,0000 

2. onoo 

0,0000 

o.nooo 
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Y= -14,0693 Y/p/2= -.6049 rHnpo= 2.nnno 

5L0PES»DZ/D\»AT slope points. from front to rear 

0?66 .0137 .0053-.001 2-.0069-.0120-.ni70-,02i9-,0?69-.03P5-,0389-.0471-.n597-.0949 

COPPERPOr ryNG x/c locations FROM FRONT TO REAR 

0536 .1250 .196^ .2679 .3393 .4107 ,4021 .5536 .6250 ,6964 .7&79 .8393 .9107 .982L 


CHOPO ^^'OlF OF ATTACK IM X-Z PIAKE= -1 . 1561DEGREES 


LOCAL ELEVATION 


X/C 

3/C 

(2/C)C05(DTH) 

delta V 

DELTA Z 

(DLT zicOSfDTHi 

0 . n n 0 p 

- . p202 

-.0195 

0 , 0 0 0 0 

-.0404 

-.0390 

. 0250 

- . 0209 

-.0201 

. 05''0 

-.0417 

-.0^03 

.050 0 

-.0215 

-.0206 

. 1 000 

- . 0431 

-.0416 

.0750 

- . 0222 

- .021 4 

. 1 500 

-.0443 

-.OAZQ 

.lorn 

- . 0227 

-.0219 

, 20n 0 

-.0454 

-.0439 

.1250 

- .0231 

- .0223 

.2500 

-.0462 

— ^ 0 A 4 6 

.1500 

- .0234 

- , 0226 

.3000 

-.0468 

-.0452 

. 1 75 0 

- .0236 

- .0228 

,3500 

-.0473 

-.0456 

.?onn 

- ,0238 

-.0230 

.4000 

-.0475 

-.0459 

.2250 

- .0239 

-.0231 

.4500 

-.0477 

-.0461 

. 2500 

- . 0239 

- .0231 

.soon 

-.0478 

- .0462 

.2750 

-.0239 

-.0231 

.5500 

-.0478 

-.0461 

.3000 

- .0236 

-.0230 

.6000 

-.0476 

-.0460 

.3250 

- ,0237 

-.0229 

.6500 

-.0474 

-.0458 

.3500 

- .0235 

-.0227 

.7000 

-.0470 

-.0454 

.3730 

- . 0233 

-.0225 

.■^500 

-.0466 

-.0450 

.4 000 

- , 0230 

-.0223 

.Bonn 

-.0461 

-.0445 

.4250 

-.0227 

-.0220 

.8500 

-.0455 

-.0439 

.4500 

-.0224 

-.0216 

,9000 

-.0446 

-.0433 

.4750 

-.0220 

- .021 3 

.9500 

-.0440 

-.0425 

.5000 

- .0216 

- .0208 

1 .0000 

- .0411 

- .0417 

.5250 

- .0211 

- . 0204 

1 .0500 

-. 04?2 

- . 0406 

,5500 

-.0206 

-.0199 

1 . 1000 

-.0412 

-.0398 

.5750 

- .0200 

-.0193 

1 . 1500 

-.0400 

-.0387 

.6000 

-.0194 

-.0187 

1 ,2000 

-.0368 

-.0375 

,6250 

-.0166 

-.0101 

1.2500 

-.0375 

-.0362 


.6500 

-.0181 

-.0174 

1 ,3000 

-.0361 

-.0349 

.6750 

-.0173 

- .0167 

1 .3500 

-.0345 

-.0335 

,7000 

-.0165 

-.0160 

1,4000 

-.0331 

-.0319 

.7250 

-.0157 

-.0151 

1 .4500 

-.0314 

-.0303 

.7500 

-.0140 

-.0143 

1 .5000 

-.0296 

-.0266 

.7750 

-.0138 

-.0134 

1 .5500 

-.0277 

-.0267 

.8000 

- .0128 

-.0124 

1 .6000 

-.0256 

-.0247 

,8250 

- ,0 11 7 

-.0113 

1 ,6500 

-.0234 

-.0226 

.8500 

-.0106 

-.0102 

1.7000 

-.0210 

-.0203 

,8750 

-.0003 

-.0090 

1 ,7500 

-.0186 

-.0180 

.9000 

- ,00P0 

-.0077 

1 .6000 

-.0160 

-.0154 

.9250 

-.0065 

-.0062 

1 .8500 

-.0129 

-.0125 

.9500 

-.0046 

-.0044 

1.9000 

-.0092 

-.0089 

.9750 

-.0024 

- . 0023 

1.9500 

-.0047 

-.0046 

.0000 

n ,0000 

0.0000 

2,0000 

o.ooon 

0 ,0000 
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12.3740 


Y / F</2 = 


6024 


CHCRD= 


SL.nnoft 


SLf^PE5.DZ/0x«AT SLOPE POINTS. FROM FRONT TO REAR 

P214 0174 .0083 . noil-. 00SC-.0106-. 0160 -. O213 -. 0269 -. 03E9 -. 0399 -. < 1489 -. 0627-. mil 

{^nRKE^SPOHP TNG T/C LOCATTCMS FROM FRONT TO FEAR 

.0536 . 12^0 . 195 ^ ,2679 .3393 . 4lo7 ,4921 .9536 .6250 .6964 . 76?9 .6393 .9107 .9621 


CFCPr /' rrl.F of ATififK TN > f-7 PL ANE = - 1 . 1 1 93DEGREES 




LOCAL LLEVATION 




x/c 

z/c 

( Z / C ) C0S (! 3TH ) 

DELTA y 

DELTA 2 

(DLT ZlCOSfDTH ) 

0.0000 

-.0195 

-.0169 

0 . on n 0 

-.0391 

-.0377 

.0250 

-.0203 

-.0196 

. 0500 

-.0407 

-.0393 

.0500 

-.0211 

- .0204 

,1000 

-.0423 

-,0400 

.075 0 

-.0219 

-.0211 

.1500 

-.0436 

-.0423 

. 1 0 n 0 

-.0225 

-.0216 

.2000 

-.0451 

- . 04 35 

.1250 

-.0230 

-.0223 

.2500 

-.0461 

- , 0445 

. 1 son 

-.0234 

-.0226 

.3000 

-.0468 

-.0452 

.1750 

- .0237 

-.0229 

.3500 

- , 0474 

-. 045B 

.2000 

-.0239 

-.0231 

,4000 

-.0479 

- , 0462 

.2250 

-.0241 

-.0233 

.4500 

-.0482 

-.0466 

.2500 

-.0242 

-.0234 

.5000 

-.0484 

-.0460 

.2750 

-.0243 

-.0234 

.5500 

-.0485 

-.0469 

.3000 

-.0242 

-.0234 

,6000 

-.0485 

-. 046R 

.3250 

- . 0242 

-.0233 

.6500 

-.0483 

-,0467 

.3500 

-.0240 

-.0232 

,7000 

-.0481 

- , 0464 

.3750 

-.0239 

-.0231 

.7500 

-.0477 

-,0461 

.4 000 

- .0236 

-.0228 

.8000 

-.0473 

-.0457 

.4250 

- . 0234 

-.0226 

.8500 

-.0468 

-.0452 

.4500 

-.0231 

-.0223 

,9000 

-.0461 

-.0446 

. 4 75 0 

- ,0227 

-.0219 

.9500 

-.0454 

-.0439 

,5000 

-.0223 

-.0215 

1 , noon 

-.0446 

-.0431 

.5250 

-.021 8 

-.0211 

1 .0500 

-.0437 

-.0422 

.550 0 

-. 02)3 

-.0206 

1 . 1 000 

-.0427 

-.0412 

.5 75 0 

- .0208 

-.0201 

1 .1500 

-.0416 

-.0401 

.6000 

-.0202 

-.0195 

1,2000 

-.0404 

-.0390 

.6250 

-.0195 

-.0189 

1 ,2500 

-.0391 

-.0377 


,6500 

- ,0168 

-,01P? 

1,3000 

-.0377 

-.0364 

.67^0 

-.0161 

-.0175 

1.3500 

-.0362 

-.0349 

.7000 

-.0173 

-.0167 

1,4000 

- , 0346 

-.0334 

.7?Fo 

-.0164 

-.0159 

1 .&5O0 

-.0329 

-.0317 

.7500 

-.0155 

-.0150 

1 .5000 

-.0310 

- .0300 

. 77=^0 

-.0145 

-.0140 

1.5500 

-.0291 

-.0261 

,P000 

-.0135 

-.0130 

1 .6000 

-.0269 

-,o?60 


-.0123 

-.0119 

1 .6500 

-.0246 

-.0236 

,8'^no 

-.0111 

-.0107 

1,7000 

-.0222 

-.0214 

. P750 

- ,0098 

-.0095 

1.7500 

-.0197 

-.0190 

.<5000 

- .0005 

-.008? 

1 .fif'on 

-.0169 

-.0164 

,9?cn 

-.0069 

-.0066 

1 .8500 

-.0137 

-.0)33 

.P'=nn 

- . 0049 

-.0047 

1 .9000 

-.0098 

-,0094 

.9750 

-.0028 

-.0024 

1 .9500 

-.0080 

-.0049 

.0000 

0 , oooo 

0 . noon 

2,0000 

o.nooo 

0,0000 
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- 1 0.6803 


Y/FV2= 


519 ^ 


CHORp= 


2, oonn 


Y = 


SLOPES. nz/D> « 0 T 5 I.. 0 FE POINTS, FPrM fpom to rear 

0JS6 .0207 .ring , 0032- . fio33- , n093- , n 151 oPng- . 0267- , 0332-, 0407-. nsOA- , 0651-. 1 063 

rrpRFcpoKo T^o y/c lofations ppof* fpont to rear 

0536 .1250 .1964 .2679 .3393 .4107 .4821 .5536 .6250 .6964 .7679 .8393 .9107 .9821 


n-OPD amoIE of attack TM X-Z PLANE= -1 .0825DFGREES 


LOCAL elevation 


x/c 

2/C 

(2/OCCS (DTP) 

DELTA y 

DFLTA Z. 

(PLT ZICOS(DTH) 

-.0000 

- ,nl89 

-.0183 

-.0000 

-.0378 

- ,0365 

.0250 

- ,0198 

-.0191 

,0500 

-.0396 

-.030? 

.0500 

-.0207 

- ,0200 

.1000 

-.0414 

-.0400 

.0750 

- .0216 

-.0208 

,1500 

-.0431 

-.0417 

.1000 

-.0223 

-.0215 

,2000 

-.0446 

-.0431 

.1250 

-.0229 

-.0221 

.2500 

-.0458 

-.0442 

.1500 

- , 0234 

-.0226 

,3000 

-.0467 

-.0451 

,1750 

-.0237 

-.0229 

.3500 

-.0474 

-.0458 

.2000 

-.0240 

-.0232 

,4000 

-.0400 

-.0464 

.2250 

-.0242 

-.0234 

,4500 

-.0485 

-.0468 

.2500 

- ,0244 

-.0236 

,5000 

-.0488 

-.0471 

.2^50 

-.0245 

-.0237 

.5500 

-.0490 

-.0473 

,3000 

-.0245 

-.0237 

.6000 

-.0491 

-.0474 

.3250 

-.0245 

-.0237 

.6500 

-.0490 

-.0473 

.3500 

- .0244 

- , 0236 

,7000 

-.0489 

-.0472 

.3750 

- , 024J 

-,023B 

,7500 

-.0486 

-.0469 

.4 non 

- .024 1 

- .0233 

,6000 

-.0482 

-.0466 

.4250 

-.0239 

-.0231 

.6500 

-.0477 

-.0461 

.4500 

-.0236 

-.0228 

.9000 

-.0472 

-.0456 

,4750 

- . 0232 

-.0225 

.9500 

-.0465 

-.0449 

,5000 

- .0229 

-.0221 

1 ,0000 

-.0457 

-.0442 

.5250 

- .0224 

-.0217 

1 . 0500 

-.0440 

-.0433 

.5500 

-.0219 

-.0212 

1 . lAOO 

-.0439 

-.0424 

.5750 

-.0214 

-.0207 

1 .1500 

-.0428 

-.0413 

.6000 

-.0208 

-.0201 

1 .2000 

-.0416 

-.0402 

.6250 

-.0^02 

-.0195 

1 .2500 

- . 0403 

-.0390 


.6S0O 

-.0195 

-.0168 

1 .3000 

-.0389 

-.0376 

.6750 

-.0187 

-.0181 

1 .3500 

-.0374 

-.0362 

.7000 

-.0179 

-.0173 

1 .4000 

-.0358 

-.0346 

.7250 

- . n 1 70 

-.0165 

1 ,4500 

-.0341 

-.0329 

.7500 

-.0161 

-.0156 

1 ,5000 

-.0322 

-.0311 

.7750 

-.0151 

-.0146 

1 .5500 

-.0302 

-.0292 

.goon 

- .01 4 Q 

-.0135 

1,6000 

-.0280 

-.0271 

,8250 

-.0128 

-.0124 

1 .6500 

-.0257 

-.0248 

.8500 

-.0116 

-.0112 

1 ,7000 

-,f’232 

-.0224 

.8750 

-.oloj 

- .0099 

1 ,7500 

-.0206 

-.0199 

,3000 

- .0069 

-.0086 

1,8000 

-.0177 

-.0171 

.9250 

-.0072 

- . 0070 

1 .8500 

-.0144 

-.0139 

.9500 

-.0051 

- .0050 

1 .9000 

- , 0 1 0 J 

-.0099 

.9750 

-.0027 

-.0026 

1 ,9500 

-.0053 

-.0051 

.noon 

0 . 0 0 0 0 

0.0000 

2,0000 

0,0000 

o.nono 
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Y= -S.9858 Y/P/2= _.437A CHODOs S.Oftno 

SL>^PE5*0Z/Dy . AT SLOPE PnI^TS,FRn^^ FRONT TO pEAR 
,0394 .0236 ,0133 , 0052- . o p 1 7- , 008 1 - . 0 1 4 1 - , 0202- . 0265- . 0333- . 04 1 3-, 051 5- . 0&71 - , 11 06 

CORPESPQNOIMG y/C LCCATIOMS FROM FROf.'T TO REAR 
,0536 .1250 .155* 1,2^79 ,J353 ,4lo7 ,4g2l .5536 .6250 .6964 .7679 ,5303 ,9J07 ,3821 


CHORD angle of attack TN X-2. PLAM^s - 1 . 042 IDEGREES 


LOCAI ELEVATION/ 


y /c 

z/c 

(2/C)C0S(DTH) 

DELTA V 

DELTA Z 

<DLT zlCOSfDTH) 

n , 0 n 0 n 

-.0162 

-.0176 

0. oono 

-.0364 

-.0352 

.0250 

-.0192 

-.0185 

. 0500 

-.0364 

-.0371 

.0500 

-.0202 

-.0195 

.1000 

-,0404 

-.0390 

.0750 

-.0211 

-.0204 

.1500 

-.0423 

-.0409 

.loop 

- .0220 

-.0212 

.2000 

-.0439 

-.0424 

.1250 

- .0226 

- .0215 

.2500 

-.0453 

-.0437 

.1500 

- .0232 

- ,0224 

.3000 

-.0463 

- .0440 

. 1 750 

-.0236 

-.022P 

.3500 

-.0472 

-.0456 

.2000 

- .0240 

-.0231 

.4000 

- ,0479 

-.0463 

.2250 

- .0242 

-.0234 

,4500 

-.0485 

-.0466 

.2500 

-.0245 

-.0236 

.5000 

-.0489 

-.0473 

.2750 

-.0246 

-.0238 

.5500 

-.0492 

-.0475 

.3000 

-.0247 

-.0238 

.6PP0 

-.0494 

-.0477 

.3250 

-.0247 

- .0239 

.650 0 

-.0494 

-.0477 

.3500 

- .0247 

-.0238 

.Toon 

-.0493 

-.0476 

,3750 

-.0246 

-.0237 

,7500 

-.0491 

-.0475 

.4 00 0 

- .0244 

-.0236 

,8000 

-.0486. 

-.0472 

.4250 

- .0242 

-.0234 

.85'^f' 

-.0484 

- .0468 

,4500 

- .0240 

-.0231 

.9000 

-.0479 

-.0463 

.4750 

-.0236 

- ,022B 

.3500 

- ,0473 

-.0457 

,5000 

-.0233 

-.0225 

1 ,nono 

-.0456 

-.0450 

.5250 

-.0229 

-.0221 

1.0500 

-.0457 

-.0442 

.5500 

-.0224 

-.0216 

1 .1000 

- , 0 4 4g 

-.0A33 

.5750 

-.0219 

-.021 1 

1 .1500 

-.0437 

-.0422 

.6000 

-.0213 

-.0206 

1,2000 

-.0426 

-.0411 

.6250 

-.0207. 

-.0200 

1 .2500 

-.0413 

-.0399 


,6500 

-.0200 

-.0193 

1.3000 

-.0399 

-.0386 

.6750 

-.019? 

-.0186 

1.3500 

-.O30A 

-,03Tl 

.7000 

- .0IO4 

-.0178 

1 ,4000 

-.0368 

-.0356 

.7250 

-,017R 

-.0169 

1 ,4500 

-.0351 

-,0339 

.7500 

-.OlFf. 

-.0160 

1,5000 

-.0332 

-.0321 

.7750 

-.0156 

-.0150 

1 ,5500 

-.0312 

- .0301 

,8000 

-.014=; 

-.0140 

1 ,6000 

-.0289 

-.0280 

.6250 

-.0137 

-.0128 

1,6500 

-.0265 

-.0256 

.8500 

-.ni?o 

-.0116 

1 ,7000 

-.0240 

-.0232 

.8750 

-.0107 

- .0 1 03 

1,7500 

-.0213 

-. 0206 

.9000 

- ,009? 

-.0089 

1 ,8000 

-.016^ 

-.0176 

.9250 

-.0075 

-.0072 

1.8500 

-.0150 

-.0145 

,9500 

-.0053 

-.0052 

1 ,9000 

-.0107 

-.0103 

,9730 

- . oo?q 

-.0027 

1.9500 

-.0055 

-.0053 

.noon 

0 . 0000 

0.0000 

?,ooon 

O.onoo 

0,0000 
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-7.P313 


Y/F</E = 


35<v9 


CHnRO= 


2. nnnn 


n<^28 .0263 ,ni55 
0536 .1250 .196A 


SLf^PES»DZ/OY »AT SLOPE POINtS.FPPM FRONT TO REAR 

0 071-.0 0('2-.on66-.ni3l-.Ol9A-.0260-,0 332-,0 4]5-.OS22-.0685-.l 

roPRFcpr.no TNG v/r location*; from front to rear 


.2673 .3393 .-il07 .*821 .5536 .6250 ,69«4 .7579 .6393 .9107 ,9021 


CHOPn A'iOLE of attack TM v-Z PLANE= ~ .9362DEGREES 


LOCAL ELEVATTOM 


y /C 

Z./C 

(2/C) CCS (OTH) 

DELTA y 

DELTA Z. 

(DLT DCOSfDIH) 

- , 0000 

-.0174 

-.0168 

- . r> nno 

-.0348 

-.0336 

.0250 

- .0 165 

-.0178 

.o5no 

-.0369 

-.0357 

, 0500 

- .0 1 96 

-.0189 

. 1 ono 

-.0391 

-.0378 

.0750 

- . 0206 

- .0 1 99 

.1500 

-.0412 

-.0398 

.loon 

-.0215 

-.0208 

.2000 

-.0430 

-.0*15 

. 1 250 

- .0222 

-.0215 

.2500 

-.0445 

-.0*29 

.1500 

- .0226 

- .0220 

.3000 

-.0456 

-.04A 1 

. 1 750 

- .0233 

-.0225 

.3500 

-.0466 

-,n*50 

.2000 

-.0237 

- .0229 

,4000 

-.0475 

-.0*58 

.2250 

- , 0 24 1 

-.0232 

.4500 

-.0401 

-.0*65 

.2500 

- . 0243 

-.0235 

.5000 

-.0487 

-.0*70 

.2750 

- .0245 

-.0237 

.5500 

-.0491 

-.0*74 

.3000 

-.0247 

-.0236 

.5000 

-.0493 

-.0476 

.3250 

-.0247 

-.0239 

.6500 

-.049A 

-.0*77 

.3500 

- .024 7 

-.0239 

,7000 

-.049* 

-.0477 

.3750 

-.0247 

-.0238 

.7500 

-.0493 

-.0476 

.4 000 

- .02*5 

-.0237 

.soon 

-.0491 

-.0474 

.4250 

-.0244 

-.0235 

.650 0 

-.0*87 

-.0471 

.4500 

-.024] 

-.0233 

.goon 

-.0*83 

-.0466 

.4750 

-.0239 

-.0230 

,51500 

-.0*77 

-.0461 

.5000 

-.0235 

-.0227 

1 .noon 

-.0470 

-.045* 

.5250 

-.0231 

-.0223 

1,0500 

-.0*62 

-.0447 

.5500 

-.0227 

-.0219 

1 . 1 non 

-.0*53 

-.0438 

.5750 

-.0222 

-.0214 

1 .1500 

-.0**3 

-.0426 

.6000 

-.0216 

-.0209 

1 ,2000 

-.0*32 

-.0417 

.6250 

-.0210 

-.0203 

1 .2500 

-.0*20 

-.04(55 


,6500 

-.0203 

-.0196 

1 ,3000 

-.0406 

-.0392 

.6750 

-.0196 

-.0189 

1 .3500 

-.0391 

-.0370 

,7000 

-.0166 

-.0101 

1 .*000 

-.0375 

-.0362 

,7250 

-.0179 

-.0173 

! .*‘=;00 

-.0350 

-.03*5 

.7500 

-.0169 

-.016* 

1 ,5000 

-,n339 

-.0327 

.7750 

-.0159 

-.015* 

1 ,R5on 

-.0318 

-.0308 

,8000 

-.01*8 

-.01*3 

1,6000 

-.0296 

-.0286 

.6250 

- . 0 136 

-.0131 

1.6500 

-.0272 

-.0263 

.8500 

- .0 123 

-.0119 

1,7000 

-. 02*6 

-.0237 

.8750 

-.niog 

-.0106 

1.7500 

-.0219 

-.0211 

.goon 

-.nogs 

- .0091 

1 .pono 

-.0189 

-.0183 

.9250 

- ,0077 

-.007* 

1 ,P5no 

-.015* 

-.01*9 

.9500 

-.0055 

-.0053 

1 ,onoo 

-, 0 M 0 

-.0106 

.9750 

-.0028 

-.0028 

1 ,R5no 

-.0057 

-.0055 

,0000 

0 , oooo 

0 .0000 

2,0000 

o.noon 

o.oooo 
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5.5968 


Y/P/E= 


2724 


CHCRD= 




Y= 


SLOPfS.DZ/DX .AT finpF PPTNTF.FPOM FPn^'T TO FFAP 

04S9 0285 ,01Y7 0030 , n 0 1 5 “ • 0053-, n 1 1 9- , n IS A- , 0252- , 0 326- , 04 \3-- . 0523- . 0693“ . 1 1 65 

C0RRE5PC^'DT^G v/C LOCATTOMS FROM FRONT TO REAR 

0536 ,1250 ,1964 .2679 .3393 .4107 .4821 .5536 .6250 ,6964 .7679 .P393 .5107 .5821 


OMOrn AK'Ol E PF ATT/\0K TN X-I PLANF= - . 5 35 SDEGF'EES 


mcoL El EvflT ffif' 


y/c 

z/c 

fZ/C) COS (DTH) 

delta y 

delta z 

(OUT ilC^SfOTHl 

nnoo 

-.0163 

-.0158 

_ . or nn 

-.0327 

-.0315 

0250 

-.0175 

-.0169 

,0500 

-.0350 

-.0330 

0500 

-.0187 

-.0180 

.1 ono 

-.0373 

-.0360 

0750 

-.019S 

- , 0 1, 9 1 

,1500 

-.0395 

-.0382 

1 riOn 

- . 0207 

- .0200 

.2000 

-.0415 

- ,04 0 1 

1 250 

- .0215 

-.0208 

.2500 

-.0431 

-.0416 

1 500 

-.0222 

-.0214 

.3000 

-.0444 

-.0429 

1 750 

- . 0228 

-.0220 

.3500 

- .0455 

-.0440 

2000 

-.0232 

-.0224 

,4 000 

- ,0464 

-.0448 

2250 

-.0236 

-.0228 

.4500 

-.0472 

-.0&56 

2500 

-.0239 

-.0231 

.5OOP 

-.0479 

-,n46Z 

2750 

-.0242 

-.0233 

.5500 

-.0483 

- . 0467 

3000 

-.0243 

-.0235 

,6000 

-.0487 

-.0470 

3250 

-.02*4 

-.0236 

.6500 

-.0489 

- ,0472 

3500 

-.0245 

-.0237 

.7000 

-.0490 

-.0473 

3750 

- .0 245 

-.0236 

.7500 

-.0489 

-.0473 

4000 

- .0244 

-.0236 

.gooo 

-.0488 

-.0471 

4250 

- .02*3 

- .0234 

.8500 

-.0485 

-.0469 

4500 

-.024 1 

-.0232 

,9000 

-.0481 

-.0465 

4750 

- ,0238 

- .0230 

.9500 

-.0*76 

-.0460 

soon 

-.0235 

-.0227 

1 . oono 

-.0470 

-.0454 

5250 

-.0231 

-.0223 

1.0500 

-.0463 

-.0447 

5500 

- .0227 

- ,0219 

1 , 1 ono 

-.0454 

-.0439 

5750 

- .022? 

- .021 5 

1 ,1500 

-.0445 

-.0429 

60 r 0 

-.0217 

-.0210 

1 ,2000 

-.0434 

-.0419 

6250 

- .021 1 

-.0204 

1 .2500 

-.0422 

-.0407 


6^00 

- . 0204 

-.0197 

1 .3000 

-.0409 

-.0395 

67^0 

-,nlQ7 

- .0190 

1 .3500 

-.0394 

-.0381 

70 00 

-. OlPO 

-.0183 

1 .4000 

-.0378 

-.0365 

7250 

-.niPi 

-.0174 

1 .4500 

-.0361 

-.0349 

7500 

-.0171 

-.0165 

1 ,Sn00 

-.0343 

-.0331 

7750 

- .0161 

-.0156 

1 ,5500 

-.0322 

-.031 1 

POOn 

-.0150 

-.0145 

1,6000 

-,0300 

-.0290 

P?50 

- .0l3P 

-.0133 

1 .6500 

-.0276 

-.0266 

p = no 

- .01?*; 

-.0121 

1 .7000 

-.0250 

-.0241 

P7F0 

-.01 It 

-.0107 

1.7500 

-.0222 

-.0215 

CO n 0 

. , 0096 

-.0093 

1,6000 

-.0193 

-.0166 

q?co 

-,n07Q 

-.0076 

1 ,8500 

-.0157 

-.0152 

PSOO 

00^:6 

-.0054 

1 ,9000 

-.0112 

-.0109 

97'^n 

- ,on?Q 

-.0028 

1 ,9500 

-.0058 

-,onS6 

0000 

0 . noofi 

0,0000 

2,0000 

O.OOOO 

O.OOOO 
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3,9023 


Y/R/2= 


1900 


rnOBD = 


2,0000 


Y = 


«:|.nPFS,0Z/nx,AT SLOPE points, FROM FRONT TO REAR 

0*91 .0316 .0202 .01 13 . 0 036-, 003 A- , 0 1 0 1 - . 0 168- . 0237- . o 3i 4 . . 04 02- , 05l 6- , 0690- , H 75 

^ORPFFPO^■nI^P X/C LOCATTOr-'c, FPriM front TO REAR 

0335 .1250 ,196a ,E679 .3393 .4107 .4821 .5536 ,6250 ,6964 ,7679 .8393 .9107 .9821 


rnnor angle op attach tn x-z piane= -,84i9DEgrees 


LOCAL ELEV'AllOM 


Y/C 

z/c 

(2/0 COS (DTH) 

DELTA V 

DELTA Z 

(OLT Z)CnS(DTH) 

-,OOOn 

- .01 47 

-.0142 

- , 0 noo 

-.0294 

-.026A 

.0250 

-.0159 

-.0154 

.0500 

-.0319 

-,0308 

. O50f' 

- .01 72 

-.0166 

,1000 

- . 0344 

-.0332 

.0750 

”, 0 1 8 A 

- ; 0 1 77 

.1500 

-.0367 

-.0355 

. 1 ono 

-.nl9A 

-.0188 

.2000 

-.0388 

-.0375 

.1250 

- .0203 

-.0196 

.2500 

- .0406 

-.0392 

.1500 

- .021 0 

- .0203 

.3000 

- .0420 

- . 0406 

. 1 750 

-.0216 

- .0209 

.3500 

-.0433 

-.0410 

.2000 

-.0222 

- .0214 

,4 000 

-.0443 

-.0426 

.2250 

-.0226 

-.0218 

.4500 

-.0452 

-.0437 

,2500 

- . 0230 

-.0222 

.50 no 

-.0460 

-.0444 

.2750 

-.0233 

-.0225 

.5500 

-.0466 

-.0450 

.3000 

- .0235 

- .0227 

.6000 

-.0470 

- . 0454 

.32=0 

- .0237 

-.0229 

.6500 

- , 0474 

-.0457 

.3500 

-.0238 

-.0230 

.7000 

-.0475 

-.0459 

.3750 

-.0236 

-.0230 

.7500 

-.0476 

- .0460 

.4000 

-.0238 

-.0230 

.8000 

-.0476 

-.0459 

.A250 

- .0237 

-.0229 


-.0474 

-.0450 

.4500 

-.0235 

-.0227 

,9f^oo 

-.0471 

-.0455 

.4750 

- .0233 

- .0225 

.9500 

-.0467 

-.0451 

.5000 

- .0231 

- .0223 

1 .O'^oo 

-.0461 

-.0446 

.5250 

- .0227 

-.0220 

1 .0500 

-.0455 

-.0439 

.5500 

- .0224 

-.0216 

1 ,1 ono 

-.0447 

-.0432 

.5750 

-.0219 

- .0212 

1 .1500 

-.0438 

- , 0424 

,6000 

-.0214 

- ,0207 

1 .2000 

-.0428 

-.0414 

.625 0 

-.0209 

-.0201 

1 .2500 

-.0417 

-.0403 


.6500 

- .020? 

-.0195 

1 .3000 

-.0405 

-.0391 

.6750 

- .OlRP 

-.0189 

1 .3500 

-.0391 

-.0378 

.7000 

-.olPP 

-.0181 

1,4000 

-.0376 

-.0363 

,7250 

-.olPn 

-.0173 

1 .4500 

-.0359 

-,0347 

.7500 

-.0171 

-.0165 

1 ,5000 

-.0341 

-.0329 

.7750 

-.0161 

-.0155 

1 .5500 

-.0321 

-.0310 

.0000 

-.0150 

-.0145 

1 .6000 

-,0300 

-.0239 

.8250 

- ,0 1 3P 

-.0133 

1 .6500 

-.0276 

-.0266 

.8500 

-.0125 

-.0121 

1 .7000 

-.0250 

-.0241 

.8750 

-.01 12 

-.0108 

1.7500 

-.0223 

-.0215 

.90OP 

-.0097 

-.0094 

1 .8000 

-.0194 

-.0187 

.9250 

-.0070 

-.0076 

1.8500 

-.0158 

-.0153 

,9500 

- . 0057 

-.0055 

1 .9000 

-.0113 

-.0109 

.9750 

-.on?R 

-.0028 

1 .9500 

-.0059 

-.0057 

.0000 

0 , oooo 

0.0000 

a. 0000 

0,0000 

0,0000 
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- 2 . 2^78 


Y/P/S= 


1075 


CHCPD= 


2 ,nnnn 


Y= 


SLf''=E«:.D2/0Y,AT SL^Pt PriMTS«FPnM FPOMT TO TsEfiR 

.0532 .0355 .02^0 .0l5o .no7J . n n 03- . 0 06* - . 0 1 3 1 - . 0202- , n 279- . n:i69- . 048*- . 0662- , 1 157 

^nppF^:p^,^ r T ^ E x/C iCfiiTIOMP FROf' fppk't TP 

.0536 .1250 .196* ,2675> .3393 .*107 .*82! .5536 .6250 .696* .7679 .8393. .9107 .9621 


fhOcD A^■^L£ .''TT/^CK TN y-^, pi/'Me= - , 6* 09DEGPEES 


LPCftI EI.E''/'TTnM 


x/C 

z/c 

rZ/C)CC5<DTH) 

delta y 

DELTA z 

fDLT ZirrFffjTH) 

noon 

-.0112 

-.0108 

-. 0 0 no 

-.0224 

-.0216 

.0250 

-.0125 

-.0121 

. 0500 

-.0250 

-.02*2 

. 0500 

-.0139 

-.0134 

.1 ono 

-.0277 

- .0268 

, 0750 

-.0152 

-.0146 

.1500 

-.0303 

-.0293 

. 1 non 

-.0163 

-.0158 

.2000 

-.0326 

-.0315 

. 1 250 

-.0173 

-.0167 

.2500 

-.03*6 

-.033* 

.1500 

-.0181 

-.0175 

,3000 

-.0362 

-.0350 

.1750 

-.0188 

-.0182 

.3500 

-.0376 

-.036* 

.2000 

-.0194 

-.0188 

,4nnO 

-.0389 

-.037fc 

.2250 

- ,0200 

-.0193 

.4500 

-.0*00 

-.0386 

.2500 

-.0205 

-.0158 

.5onn 

-.0409 

-.0395 

.2750 

-.0209 

-.0201 

,5500 

-.0417 

-.0403 

.3000 

-.0212 

-.0205 

.6000 

-.0*24 

-.0409 

.3250 

-.0214 

-.0207 

.6500 

-.0429 

-.0414 

.3500 

-.0216 

-.0209 

,7000 

-.0*32 

-.0418 

.3750 

-.0217 

-.0210 

.7500 

-.0435 

-.0420 

.iOOO 

-.0216 

-.0211 

.eooo 

-.0436 

-.0421 

.*250 

-.0218 

-.021 1 

.8500 

-.0436 

-.0421 

.*500 

-.021g 

- .021 0 

,9000 

-.0435 

-.0420 

.*750 

-.0216 

-.0209 

.9500 

-.0433 

-.0418 

.5000 

-.0215 

-.0207 

1 ,onnO 

-.0429 

-.0415 

.5250 

-.02le 

-.0205 

1.0500 

-.0425 

-.0410 

.5500 

- ,0209 

- .0202 

1 ,1000 

-.0419 

-.0405 

.5750 

-.0206 

-.0199 

1.1500 

-.0412 

-.0398 

.6000 

-.0202 

-.0195 

1 ,2000 

-.0404 

-.0390 

,€ 2 S 0 

-.0197 

-.0190 

1 .2500 

-.039* 

-.0381 

.6500 

-.0192 

-.0185 

1 .3ono 

-.0384 

-.0370 

.6750 

- ,0186 

-.0179 

1 .3500 

-.0371 

-.0359 

,7000 

-.0179 

-.0173 

1 ,4000 

-.0358 

-.0346 

.7250 

-.0172 

-.0166 

1.4500 

-.0343 

-.0332 

.7500 

-.0163 

-.0158 

1 .5000 

-.0327 

-.0316 

,7730 

-.0154 

-.0149 

1 .5500 

-.0309 

-.0298 

.8000 

-.0146 

-.0139 

1 .6000 

-.0289 

-.0279 

.8250 

-.0133 

-.0129 

1 .6500 

-.n?66 

-.0257 

.8500 

-.0121 

-.0117 

1 .7000 

-.0242 

-.0234 

.6750 

- ,0l 08 

-.0105 

1 .7500 

-.0217 

-.0210 

.Poor 

-.0095 

-.0091 

1 .8000 

-.0189 

-.0183 

.9250 

- .0070 

-.0075 

1 . 8500 

-.0155 

-.0150 

.9300 

-.0056 

-.005* 

1 ,9000 

-.01 1 1 

-.0108 

.9750 

-.0029 

-.0028 

1 .9500 

-.0058 

-.0056 

1.0000 

0 . OOO 0 

0 . 0000 

2. 0000 

0.0000 

0,0000 
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6803 


Y/P/£= 


0331 


CH0R0= 


z.onno 


v = 


St.OPFS .DZ/DX ♦ ^ T SLOPE PriMTS,FPr^< FDONt TP BEAR 

063^ .0^5 .0360 .naan .naiZ .nUg .nog6 . n 021 - , ooa8- . o 1 26 - . 021 9- . 034n-. 0525- , i o31 

COnPESPntJQTNG X/C LDCATIOK'S PRO" PROMT TO REAR 

0336 .1250 . 196 A .2679 .3393 ,A\OT ,A5sl ,3536 .6250 .696A ,7679 .8393 ,910'^ .9821 


CHORD amgLE op attack Tf^ x-I P|.AME= . 1 380DEGREES 


L'-CAt ELEVATTCM 


y/c 

z/c 

( Z/Cl CCS (OTH) 

delta y 

DELTA Z 

(OLT ncnsri^TH) 

nnro 

. n02A 

.0023 

- . oono 

.0048 

,00*7 

.0250 

.0 003 

.none 

.0500 

.0016 

.0016 

.0500 

- . none 

-. 0007 

. 1 000 

-.0016 

-.0015 

.0750 

- ,0021 

-.0022 

.1500 

- . 00*6 

-.00*5 

. ] oon 

- . 0037 

-.0036 

.2000 

-.0075 

-.0072 

. 1 250 

- ,0050 

-.00*8 

.2500 

-.0100 

-.0096 

.1500 

- .0061 

-.0059 

,3000 

-.0122 

-.0117 

. 1 750 

-,0071 

- .0068 

.3500 

-.01*1 

-.0137 

.2000 

- ,0080 

-.0077 

.4000 

-.0160 

-.0155 

.2250 

- ,008'’ 

- .0086 

.4500 

-.0177 

-.0171 

.2500 

- .0096 

- ,0093 

.5000 

-.0193 

-.0186 

.2750 

-. Ol OA 

-.0100 

.5500 

-.0207 

- . 0200 

.3000 

ol 1 n 

-.0106 

,6000 

-.0220 

-.0213 

. 3£5o 

-.0116 

-.0112 

.6500 

-.0232 

-.022* 

.3500 

- .0121 

-.0117 

.7000 

-.02*3 

-.023* 

.3750 

-.0126 

-.0122 

.7500 

-.0252 

-.02*4 

. A 0 on 

-.0130 

-.0126 

.8000 

-.0261 

-.0252 

. A?50 

-.0134 

-.0129 

.8500 

-.0268 

-.0259 

. A 5 0 0, 

-.0137 

- .0132 

.9000 

-.0274 

-.0265 

.A 75 0 

-.olAO 

-.0135 

.9500 

-.0279 

-.0270 

.5000 

-,01A2 

-.on7 

1 .onof) 

-.0293 

-.0274 

.5250 

-.0] A3 

-.0138 

1 ,0500 

-.0286 

-.0277 

.550 0 

-.01A4 

-.0139 

1 . 1 non 

-.0288 

-.0270 

.5750 

- . 0 1 A A 

-.0139 

1 .1500 

-.0289 

-.0279 

.6000 

-,OlAA 

-.0139 

1 .2000 

-.o?ge 

-.0278 

.6250 

-.0143 

-.0138 

1.2500 

-.0287 

-.0277 


.6500 

-,n 142 

-.0137 

1.3000 

-.0283 

-.0274 

.5750 

-.01*0 

-.0135 

1.3500 

-.0279 

-.0270 

.7000 

-.0137 

-.0132 

1,4000 

-.0273 

-.0264 

.7250 

-.0133 

-.0128 

1,4500 

-.0266 

-.0257 

.7500 

-.0129 

-.0124 

I ,5ono 

-.0257 

-.0248 

.7750 

-.0123 

-.0119 

1 ,5500 

-.02*7 

- .0238 

.8000 

-.0117 

-.0113 

1.6000 

-.0234 

-.0226 

.8250 

-.0109 

-.0106 

1.6500 

-.0219 

-.021 1 

.6500 

-.0101 

- .0098 

1 .7000 

-.0202 

-.0195 

,8750 

-.0092 

-.0089 

1 .7500, 

-.0104 

-.0178 

,9000 

- ,0082 

-.0079 

1 ,8000 

-.0163 

-.0157 

.9250 

-.0068 

- .0066 

1 ,B50n 

-.0136 

-.0131 

.9500 

-.00*9 

- . 0046 

1 .9000 

-.0099 

-.0095 

.9750 

-.0026 

-.0025 

1 .9500 

-.0052 

-,0050 

,0000 

n , noon 

0,0000 

2,0000 

0, noon 

0 , (1000 
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APPENDIX E 


COMPUTER PROGRAM LISTING 


This program has been written in FORTRAN IV language for the CDC 
Cyber 173 computer system with NOS 1.3 operating system. The program 
is briefly described in Appendix A of this report. Minor modifications 
to the program may be necessary to achieve successful execution on other 
computers, as discussed in Appendix A. The following table is an index 
to the computer program listing: 


Letter 


Name 


Designation 

Page 

PROGRAM GEOMTRY 

A 

98 

PROGRAM WINGAL 

A 

117 

SUBROUTINE 

FTLUP 

B 

118 

SUBROUTINE 

SIMEQ 

C 

120 

PROGRAM CTRCUL2 

D 

123 

SUBROUTINE 

GAMCAL 

E 

144 

SUBROUTINE 

DRAGSUB 

F 

145 

SUBROUTINE 

DRACAL 

G 

146 

SUBROUTINE 

CCAL 

H 

148 

SUBROUTINE 

CONCAL 

I 

149 

SUBROUTINE 

SNTAN 

J 

150 

SUBROUTINE 

LOGS 

K 

159 

PROGRAM ZOCDETM 

L 

162 

SUBROUTINE 

INFSUB 

M 

168 

SUBROUTINE 

SPLINE 

N 

170 

SUBROUTINE 

TRIMAT 

0 

173 


This program is stored under user number 496125E on the NASA/LaRC 
computer system, with program GEOMTRY stored in permanent file WOES, and 
all other programs and subroutines stored in permanent WDEM. An example 
of the necessary control cards for execution of this program appears on the 
following page. 
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EXAMPLE OF CONTROL CARDS FOR EXECUTION OF CURRENT 
COMPUTER CODE AT NASA/LaRC 


KUHL *T677 *CI^135000 . 1 2 1 2 WDE SWDEM ( KliHL) 

USEPf 

CHARGE* 

GET*WDES. 

RFL*6A000. 

COPYfIN'PlJT.TAPEB. 

RENTND, TAPES, 

COPYSPF* TAPES, OUTPUT, 

PEWIND,TAPES, 

FTN,I=wnE5*STATTC, 

LDSET * PRESETS I NOEF. 

LGO , TAPES. 

REWIMP (TAPFSO ) 

RFL* 135000. 

GET *WDEM. 

attach,ftnmlip/un=lidrary . 

ATTACH, LRCG0SF/UN=L I BR ary. 

FTN, I=WDFM,PsGLO,STATTC. 

LOSET,LTP=LPCGOSF/FTM^^LTP ,pRESFT = TNDEP , 

glc. 

EXIT. 
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PROGRAM LISTING 
PROGRAM GEOMTRY 


PROGRAM GFPMTPY 74/7A OPT=l GTATTG 


FTN 4.7+4G5 


fli/ni/?7. n, 


1 


5 


10 


IF 


?0 


?F 


.^0 


35 


40 


C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

r 

c 

c 

c 

c 


c 


PROGRAM GFOMTRY ( I MPIfT , OMTPl'T f T APF5= INPUT » T APrft=Oll7PlJT * TAPEP5 » T ApF A 
150) A 

^IPF^'';InN XPFF(?5). YPFF(?G), SAR(2S)» A(25)* RSAP(?'^)» X(?5), Y( a 
125), P0TSV(2), GA(2). VPOpn<5l), SPY(50«2), KTX(2), TyK'^O,?), IYT A 
?(50«2) - A 

niMENSIOM LSFG(IO). 7(10), YJ(IO), PJ(IO) A 

niMFNPjON PCTX(=;0), PCT7(50) A 

DIMENSION NTOT(?). NPPK(?), T0T(2). RPK(2), SFGGjlO) A 

common /ALL/ POT.M,PFTAtPTFST,0TF5TtTPLSCW(50) t0(400) .PN(400) tPV( A 
1400), S(400), PST (400). PH I (50). 7H (50) .NSSW A 

common /MAIMONF/ I CODFOF , TOT AL ♦ A AN ( 2 ) , XS ( ? ) , YP ( 2 ) ,KFCT5 ( ? ) . XPEG ( ? A 
15,?) ,YPFG(?‘^,?) ,ARFG(?5,?) ,niH(?5.?) ,Mcn(?5.?) ,XX(?5.?) ,YY(?5,?) ,A A 
ESI?®?,?) .TTWn (?*:,?) ,MMCn(?5.?) .AN(?) ,77(25.?) .TFLAn A 

COMMON /ONFTHPF/ TWIST ( ?) .C PEF , SREF , CAVE ,CLDES . ST RUE , AP, A RTPUE , RT A 
ICPHT (?) . CONFIG, NSSWSV (?) .MSV (?) , KROT , PL AN , IPL AM ,M ACH , S«WW A (50) A 

COMMON /CCPPPO/ CHOPO (50) .XTE (50) .KPIT.TSPAN.TSPANA A 

REAL MACH A 

RFWINO 50 A 

A 

THIS PPOGPAM IS A SLIGHT REVISION OF THE GFOMpTPY PROGRAM A 

DFSCPIPEO IN NASA TM 0-6090, PY JOHN E. LAMAR A 

PROGRAM CIRCUL? contains THE TPEFFT7 PLANF OPTIMIZATION A 

USING THE E-n ADVANCFP PANFL THEORY OF NASA CP-3154. RY A 

JOHN M, KUHLMAN, further RFFFRENCFS and a OFSCRIPTION A 

OF THF theory APF given as comments in PPOGPAM CIPCUL2. A 

PROGRAM 70CnFTM FOLLOWS THF MEAN CAMPER INTEGRATION PRO- A 

GRAM OF TN n-P090 A 

A 

A 

PART ONE - GEOMETRY COMPUTATION A 

A 

SFCTION ONF - INPUT OF PEFFPENCF WING POSITION A 

A 

A 

TCODPOF =0 A 

total =0. A 

PTEGT =0. A 

OTFST =0. A 

TWIST(I) =0. A 

TWIST(?) =0, A 

IF (TOT^L.EO.O.) RTCDHTn)=PTCDHT(?)=0. A 

YTOL = l.F - 10 A 


1 

? 

S 

4 

5 

6 
7 
R 
9 

10 

11 

1 ? 

n 

14 

15 
Ifi 
17 
IP 
IP 
?0 
?1 
?? 
?3 
?4 
?5 
?fi 
?T 
?P 
?P 

30 

31 
3? 

33 

34 

35 
3ft 
37 
3P 

39 

40 

41 
4? 


(cont 'd) 



PROGRAM GEOMTRY (Continued) 



PROGRAM RFOMTRY 74/74 0PT=1 5TATIC FTN 4.7*4R5 

fil/01/27. 13.3R.3R PAGE 



AZY = l.E ♦ 13 

A 

43 



PITTT = 4. * ATANd.) 

A 

44 

45 


PIT s PITTT / ?. 

A 

4R 



RAO = 100, / PITTT 

A 

46 



IF (TOTAL ,GT, 0.) GO TO 70 

A 

47 



RTCDHTd) = 0, 

A 

40 



RTCDHT(?) = RTOPHTd) 

A 

49 

*;o 

C 


A 

RO 


C 


A 

51 


c 

SFT PLAN EQUAL TO 1. FOR A WING ALONF CONPUTAIOM - FVFN FOP A 

A 

5? 


c 

VARIAPLE SWFFP WING 

A 

53 


c 

SET PLAN FOUAL TO ?, FOR A WING - TAIL COMRINATION 

A 

54 

5*^ 

c 


A 

55 


c 

SFT TOTAL EOUAl TO THF NUMPFR OF SFTS 

A 

56 


c 

OF GROUP TWO OATA PROVIDFD 

A 

57 


c 


A 

50 



RFAO (5,10PO» PLAN,TOTAL,OPFF,SRFF,XPREF 

A 

59 

60 


IF (FOF(5)) RROdO 

A 

60 



10 IPLAM = plan 

A 

61 


c 


A 

6? 


c 


A 

63 


r 

SFT AAN(IT) equal TO THF MAXIMUM NUMBER OF CURVES PFQUIREO TO 

A 

64 

65 

c 

DFFTNF THE PL ANFOPM PERTMFTFP OF THF (IT) PtANFORM. 

A 

65 


c 


A 

66 


c 

SFT RTfOHTdT) FOUA| TO THF ROOT CHORD HFlRHT OF THE LIFTING 

A 

67 


c 

SLIPFACF (IT), WHOSE PFPIMFTFP POINTS ARE BEING REAP IN, WITH 

A 

60 


c 

RESPECT TO THF WJNG ROOT CHOPO HEIGHT 

A 

69 

70 

c 


A 

70 



WPTTF (6,1060) 

A 

71 



DO 60 IT = 1,1P|.AN 

A 

7? 



PFAP (S,1010) AAK'(IT) ,XSdT) ,YS(IT) ,RTCnHT(IT) 

A 

73 



N = A AN (IT) 

A 

74 

7 ^ 


N) = N ♦ 1 

A 

75 



MAK = 0 

A 

76 



IF (IPLAN .FO, 1) PPTCOM = lOH 

A 

77 



IF dPI.AN ,FO. ? .Amp, IT ,FC, 1) PRTCON = lOH FIRST 

A 

70 



IF (IPLAN .FO, ? .amp, it ,F0, ?) PRTCON = 1 OH SFCOnP 

A 

79 

RO 


WRITF (6,1070) PPTCOM, M, RTCPHTdT) ,XS (IT) ,YS(IT) 

A 

00 



WRITF (fi.noO) 

A 

01 



ro “^O T = 1,N1 

A 

0P 



PFAO (S,10P0) »PFG(T,IT) ,YPEG(I,IT) ,DIH(I,TT) ,AMCP 

A 

03 



XPFOd,TT) = XPFG(I,IT) - XPPFF 

A 

04 


to 

to 



100 


PROGRAM GEOMTRY (Continued;) 


PROPPAM PFDMTRY 74/74 PPT = 1 «;TATTC RTN 4,7*4'^'=; «1/01/?Y, 


B5 



^'cn^*TT) = AMcn 

A 

85 




IF (I ,F.O, n PO TO 50 

A 

8^1 




IF (mak .k'F. 0 ,oP. Mcnn - itiTi ,nf. ?) ro to 20 

A 

P7 




MAK =1-1 

A 

88 



20 

if (fiP5(YREG(I - 1»TT) - YRER(I»IT)1 ,LT. yTOL) OP TO 30 

A 

89 

90 



ApFOn - 1»ITJ = (XRF.Pd - IfITl - XRFG(I,TTn / (Yt5FR(I - 1 ,TT) - 

A 

90 



1 

YRFrn«TTM 

A 

91 




A5WP = ATAN(APFfi(I - 1,TT)) « RAD 

A 

92 




GO TO 40 

A 

93 



30 

YPFRd.IT) = YPFPII - IfiT) 

A 

9A 

95 



ARFG(I - 1»TT> = A7Y 

A 

95 




A5l>'P = 90, 

A 

96 



40 

J = I - 1 

A 

9T 


C 



A 

96 


C 


WPITF PLANFnnp PFRJMFTFR POINTS ANO ANGLFc 

A 

99 

100 

c 



A 

100 




WPITF (f ,11601 J,XRFG(J.IT) .YREGUdT) , ASWP ,DTH U, TTl ,KCO(J,TTl 

A 

101 




DIHJJ.TT)- = TAN(nlH(J,IT) / PAP) 

A 

10? 



50 

CONTIMME 

A 

103 




KFFTSdT) = MAK 

A 

1 04 

105 



WPITF (6,1160) Ml ,XRFG(W] ,IT) ,YRFR(N1 ,IT) 

A 

105 



60 

CONTINUE 

A 

1 06 


c 



A 

107 


c 


PART 1 - SFCTION ? 

A 

108 


c 


PFAD GROUP ? data ANO rOMPUTF DESIRED VINO PDCTTION 

A 

1 09 

110 

c 



A 

no 


c 



A 

111 


c 


SET SA(1),SA(?> FOUA) TO THE SWEEP ANGLE,IN DEGREES, FOR THE FI05T 

A 

112 


r 


CUPVF(S) that CAN CHANGE SWEEP FOR EACH PLANFPRM 

A 

113 


c 



A 

1 14 

115 


70 

PFAD (5,ll5o) CONFIG, sew, VIC, MACH, CLDES,SA (1 ) ,SA (?) 

A 

1 15 


r 



A 

1 16 




WRITE (6,1090) CONFIG 

A 

IIT 




IF (EOF(5)) 980, PO 

A 

118 



80 

IF (PTFST ,NF, 0, .AND, OTFST ,NE, 0.) GO TO 1000 

A 

119 

120 



IF (Sew ,EO. 0.) GO TO 100 

A 

1?0 




DO 90 I = 1,50 

A 

1?1 



90 

TPLSCW(I) = sew 

A 

1?? 




GO TO 110 

A 

123 



1 00 

read (5,1080) STA 

A 

124 

125 



NSTA = STA 

A 

125 




READ (5,1080) ( TRLSCW (I ) , TPLSCW (I ♦ 1),TPLSCW(I ♦ ?),TPLSCW(I ♦ 3) 

A 

126 


PARE. 3 



PROGRAM GEOMTRY (^Continued) 



F pCIfiP AV 

PFr'“Tf'Y 74/74 OPT=l t;T4TTr 


FT^^ 4. 

7*4P5 

Rl/ni/?7, 13,35,39 

PflGF 




IfTRLSCWd ♦ 4),TnL5rw(I ♦ 5) 

,TRLSCW(1 ♦ 6) 

,TP|.SCW(I 

♦ 7), I = 

1,NPT A 

1?7 




?4.R) 




A 

l?a 




1 10 

DO 360 IT = l.IPLAN 




A 

1?9 


1 :^o 



N s AAN(TT) 




A 

130 





N'l = N ♦ 1 




A 

131 





DO 120 I = 1,N 




A 

13? 





XPFFin = XRFPfl.IT) 




A 

133 





YRFF(I) = YRFP(T,IT) 




A 

134 





A(I) = flPFG(T,TT) 




A 

135 





RSAR(T) = ATAN{6 (I) ) 




A 

136 





IF (A(T) ,Fo, A7V) pe:AP(T) = 

PIT 



A 

137 




l?o 

CONTINIIF 




A 

130 





XREF(Ml) = XRFG<N1»IT) 




A 

139 


14P 



YPFF(Nl) = YPFF(M1,IT) 




A 

140 





IF CKFCTSdn ,GT. 0) GO TO 

130 



A 

141 





K = 1 




A 

142 





SA(IT) = RSARM ) * PAD 




A 

143 





GO TO 140 




A 

144 


145 


130 

K = KFrTGdT) 




A 

145 




140 

WRITE (6,1120) K,SA(TT),IT 




A 

146 





SR = 5A(IT) / PAP 




A 

147 





IF (ARG (SB - PSflP (*<)) .FT. ( 

,1 / P«D) ) r-0 

TO 170 


A 

148 



c 


RFFFPFNCF PLANFOR^’ COORPTNATES ARE STORED 

U^'CHA^tGFn 

FOP WINGS 

A 

149 


150 

c 


WITHOUT CHANGE IN SWFEP 



A 

150 





DO 160 I = l,N 




A 

151 





Xd) = XREF(I) 




A 

15a 





Y(I) = YPEF(T) 




A 

153 





IF (RSAPd) ,FO. PIT) GO TO 

150 



A 

154 


155 



A(I) = TAN(PSAPd)) 




A 

155 





GO TO 160 




A 

156 




150 

Ad) = A7Y 




A 

157 




160 

SAR(l) = RSAP(I) 




A 

158 





X(N1) = XPFF(NI) 




A 

159 


160 



Y(N1) = YPEF(Nl) 




A 

160 





GO TO 340 




A 

161 



c 






A 

162 



c 


CHANGFS IN WINF SWEEP . APF MADE HEPF 



A 

163 



c 






A 

164 


165 


170 

IF (Mcn(K,IT) ,NE. ?) GO TO 

9R0 



A 

165 





KA = K - 1 




A 

166 





DO 180 I = 1,KA 




A 

167 





Xd) = XREF(I) 




A 

168 



o 



o 

N) 


PROGRAM GEOMTRY CContinued} 


PROGRflt' PFOHTPY 


7«/7A nPT=l STATIC 


FTN A,7*4RS 


R1/0I/P7. 1R.7S.3P 


PAPF S 


170 


17S 


IPO 


IRP 


IPO 


IPS 


POO 


?05 


?10 


Y(I» = YRFF(I) A IftP 

IPO 5AR(I) = PSAP(I) A i7fl 

C DFTFPMTNF LFADTNR FnPF TMTFPSFCTION PFTWFFN FTXFn AND vAPIAPLF a 171 

C SWEFP WTNR SFCTTCNs A 172 

SAR(K) = SP A 171 

A(K) = TAN(SP) A 174 

SAT = SP - PSAP(K) A 17S 

X(K ♦ 1) = XS(TT) ♦ (XRFF(K ♦ 1) - XS(IT)) « CnS(SAT) ♦ (YPFF(K ♦ A 1 7S 

11) - YS(IT)) « STf^(SAT) A 177 

Y(K ♦ 1) = YS(IT) ♦ {YPFF(K ♦ 1) - YS(IT)) * mS(<;AT) - (XPFF(K ♦ A ]7R 
11) - XSnT)) * PTN(SAI) A 17Q 

IF (APS(SR - PAP(K _ 1)) .LT, (,1 / RAD) RC TO IPO A IRO 

Y(K) = X(K ♦ 1) - X(K - 1) - A(K) * Y(K + 1) ♦ A(K - 1) * Y (K - 1) A IRl 

Y(K) = Y(K) / (A(K - 1) - A(K)) A Ifl? 

X<K) = A(K) * Y(K - 1) - A(K - 1) * XfK ♦ 1) ♦ A(K - 1) * A(K) « ( A Ifl? 

lY (K ♦ 1 ) - Y (K - 1) ) A 1R4 

X(K) = X(K) / {A(K) - A(K - D) A 1R5 

GO TO 200 A 186 

C FLTMINATF FXTRAMFOns PRFAKPOINTS A 1R7 

190 X(K) = XPFF(K - 1) A IRR 

Y(K) = YREF(K - 1) A 1 RP 

SAP(K) = SAR(K - 1) A 190 

?0O -K = K ♦ 1 A ]91 

C SWFFP THF PPFAKPnINTS ON THF VAPIAPLF SWFFP PAMFL A 19? 

C (IT ALSO KFFPS SWFFP ANRLFS IN FIRST OP FOURTH OUAOPANTS) A 193 

?10 K = K ♦ 1 A 194 

SAR(K - 1) = SAT ♦ RSAP(K _ 1) A 19S 

??0 IF (SAP(K - 1) ,LE. PIT) CO TO ?30 A 196 

SAP(K - 1) = SAR(K - 1) - 3, 1415927 A 197 

GO TO 220 A IPP 

230 IF (SAR(K - 1) .RE, { - PIT)) GO TO ?40 A 199 

SAP(K - 1) = SAP(K - 1) ♦ 3,1415927 A ?O0 

60 TO 230 A 201 

240 IF ((SAP(K - 1)) ,LT, ,0) GO TO 250 A 202 

IF (SAP(K - 1) - PIT) 2PO,?60,2fO A 203 

250 IF (SAP(K -1)4. PIT) ?70,?70,2R0 A 204 

260 A(K - 1) = A7Y A ?0S 

GO TO 290 A 206 

270 A(K - 1) = -A7Y A 207 

GO TO 290 A 20B 

PRO A(K - 1) = TAN(SAR(K - D) A 209 

290 KK = MCD(K,IT) A 210 



103 


PROGRAM GEOMTRY (Continued] 


PPORPAM RFOMTPY 7A/74 nPT=l STATIC 


FTM 4,7*6R5 


ni/ni/?7. 13.15.3^ PARF 6 


IF (KK ,EQ. n Cn TO 300 A ?11 

Y(K) = YS(lT) ♦ (YRFF(K) - YS(IT)) * COS(SAI) - (XRFF(K) - XS(IT)) A 
1 * STNfSAI) A ?13 

X(K) = XS(IT) ♦ {XPFF(K) - XS(IT)) « COS(SAI) ♦ (YPFF(K) - YS(lT>) A ?14 

215 1 * SINISAI) A PIS 

GO TO PIO A plfi 

C OFTF.PP^INF THE TRAILING FPGF INTERSECTION A ?17 

C RETWEEN FIXED AND VARIARLE SWEEP WING SECTIONS A ?lfl 

300 IF (ARS(PSAR(K) - SAR{K - 1)) .LT, t.l / RAD)) GO TO 310 A ?19 

220 Y(K) = XREF(K ♦ 1) - X(K - 1) - A(K) * YPFF(K ♦ 1) * A (K - 1) * Y( A ?20 

IK - 1) A pPl 

Y(K) = Y(K) / (A(K - 1) - A(K)> A ??? 

X<K) = A(K) * X(K - n - A(K - 1) XPEF(K ♦ 1) ♦ A(K - 1) « A(K) A 2?3 

' 1» (YREF(K ♦ 1) - Y(K - 1)) A ??4 

225 X(K) = X(K) / (A(K) - A(K . 1)) A 2?5 

GO TO 320 A ??6 

310 X{K) = XREF(K ♦ 1) A 2?7 

Y(K) = YREFfK +1) A ??R 

3?0 K = K ♦ 1 A ?2R 

230 C STORE PEFERENCF PLANFOPM COOPDINATES ON INPOARD FIvED TRAILING A ?30 

C EDGE A 231 

DO 330 I = K,N1 A ?3? 

X(I) = XREFUl A 233 

Y(I) = YREF (I) A 234 

235 330 SAP(I - 1) = PSARCI - 1) A ?3S 

340 DO 3*50 I = 1«N A 23fi 

XXfItIT) = X(I) A 237 

YY(I ,TT) = Y(I) A 23R 

MNCD(I,IT) = PCD{I«TT) A 239 

240 TTWD(I,IT) = DIH(1»IT) A 240 

350 AS(1,IT) = A(I) A 241 

XX(NUIT) = X(Nl) A 2A? 

YY(N1,IT) = Y(N1) A ?43 

AN(IT) = AANUT) a 244 

245 360 continue A 24S 

C A 24ft 

C LINE UP RREAKPOINTR AMONG PLANFOPMS A 247 

C A 24R 

DOTSVtl) =0, A 249 

250 P0TSVf2) =0, A 250 

WRITF (fttllPO) A 251 

DO 4P0 IT = I.IPLAN a 25? 


o 

-pa- 


PROGRAM GEOMTRY (Continued) 



PPORPAM PFPMTPY 74/7A CPT=1 FTATTG FTW 4.7+4PS 

RI/01/27. 



MT = AN (IT) ♦ 1 

A 

253 



DC A?0 ITT = l.TPlAM 

A 

254 



IF (ITT .EO. IT) GO TO 4?ft 

A 

255 



NITT = AM(ITT) ♦ 1 

A 

25 ft 



DD 410 I = l.NITT 

A 

257 



JPSV = 0 

A 

258 



DO 370 JP = 1,NTT 

A 

259 



IF (YY(JP»IT) .FO. YY(I»ITT)) GO TO 410 

A 

?G0 



370 CONTINUE 

A 

?G1 



DO 3R0 JP = 1 ,N1t 

A 

?6? 



IF (YY(JP»IT) ,LT. YY(I»ITT)) GO TO 3^0 

A 

?G3 



3R0 continue 

A 

?G4 



GO TO 410 

A 




3P0 IF (JP ,FO, 1) GO TO 410 

A 




JPSV = JP 

A 

267 



IND =i NIT - (JPGV - 1) 

A 

2ftfl 



DO 400 JP = 1,1M0 

A 

26P 

270 


K2 - MIT - JP * ? 

A 

270 



K1 s MIT - JP ♦ 1 

A 

271 



XX(K2,IT) = XX(Kl.IT) 

A 

272 



YY(K2,TT) = YY(Kl.IT) 

A 

273 



MNCD(K2*IT) s PMCD(K1»IT) 

A 

274 

?7S 


• AS(KR,IT) = AS(KI.IT) 

A 

275 



400 TTW0(K?,IT) = TTWD(K1,IT) 

A 

27f, 



YY(JPSW»IT) = YY(I*ITT) 

A 

277 



AS(JPSV*IT) a AS(JPSV - ),IT) 

A 

27R 



TTWD(JPSVflT) s TTWO(JPSV - 1,IT) 

A 

279 

PRO 


XX(JPSV«IT) a (YY(JPSV.IT) - YY(JPSV - 1»IT)) * AFfJPSV - 

I, It) ♦ A 

280 



1XX(JPSV - 1,IT) 

A 

2R1 



MNCD(JPSV»IT) = MMC0(JPFV - l.IT) 

A 

2R2 



AN(IT) = AN(IT> ♦ 1. 

A 

2R3 



nit a nit ♦ 1 

A 

284 

?R5 


410 CONTINUE 

A 

2R5 



4?0 CONTINUE 

A 

2R6 


C 


A 

2R7 


C 

SEQUENCE WING COORDINATFS FROM TIP TO ROOT 

A 

2RR 


C 


A 

289 

?oo 


N1 a AN(IT) + 1. 

A 

290 



DO 430 I = 1*N1 

A 

291 



430 Q(I) = YY(I»TT) 

A 

29? 



DO 470 J = 1*N1 

A 

293 



HIGH = 1. 

A 

?94 


page: 7 
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PROGRAM GEOMTRY CContinued) 


PPOPPflM rfoMTPY 74/74 rPT=l STATIC 


FTN 4,7 + 4R5 ni/01/?7. 13,-^5,3P PAGF R 


? 9 ^ DO 440 T = 1,N1 A 295 

IF nOfI) - HJPH) ,RF. 0.) GO TO 440 A 2gf, 

HIGH = 0(1) A ?97 

IH = I A ?9B 

*40 CONTIHUE A ?99 

300 IF (J .NE, 1) GO TO 450 A 300 

ROTSV(IT) = high a 301 

KFX (IT) = IH A 30? 

450 0(IH) = 1. a' 303 

SPY(J,IT) » HIGH A 304 

.305 IF (IH ,GT. KFX (IT)) GO TO 460 A 305 

lYL(J.IT) = I A 306 

IYT(J»IT) =0 A 307 

GO TO 470 A 300 

460 IYL(J»IT) =0 A 309 

310 IYT(J»IT) =1 A 310 

*70 CONTIMUF a 311 

4R0 CONTINUE A 31? 

C A 313 

C SELFCT MAXIMMP p/ 2 AS THF VlNG SEMISPAN. IF ROTH FIRcT ANO A 314 

315 C SFCONO PLANF0P)/S HAVE SAMF SFMISPAN THEN THE SFCONO PLANFORM IS A 315 

C TAKEN TO BE THE WING, A 316 

C . A 317 

KPOT - } A 31B 

IF (BOTSV(l) ,RE. POTSV(?)) KROT = ? A 319 

3?0 BOT * BOTSV(KPOT) A 3?0 

C A 3?1 

C COMPUTE NOMINAL HORSESHOE VORTEX WIDTH ALONG wiNG SURFACE A 3?? 

C A 3?3 

TSPAN =0 A 3?4 

3?5 ISAVE = KFX (KPOT) - 1 A 3?5 

I = KFX(KBOT) - ? » 326 

490 IF (I .EG). 0) GO TO 500 A 327 

IF (TTHD{I,KBOT) ,FO, TTWP ( IS AVE , KROT ) ) GO TO 510 A 328 

500 CTWD = COS(ATAN(TTWO(lSAVF,KPOT) ) ) A 329 

330 TLC-TH s (YYdSAVE ♦ l*KPOT) r YY(1 ♦ l,KBOT)) / CTWO A 330 

TSPAN = TSPAN ♦ TLGTH A 331 

IF (I ,EQ. 0) GO TO 520 A 332 

ISAVE = I A 333 

SIO 1=1-1 A 334 

335 GO TO *90 A 335 

5?0 VI = TSPAN / VIC A 336 
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34 0 


345 


350 


355 


360 


365 


370 


375 


PROGRAM GEOMTRY (Continued) 


pp06P4f^ RFDf'TRY 74/74 CPT=1 STATIC 


FTN 4.7+455 


51/01/77. 13,35.30 


VSTOL = VI / 7 A 337 

C A 336 

TSPAN4 =0, A 339 

KPIT -2 A 340 

IF (IPLAN .FP, n (tO to 560 A 341 

IF (KPOT .EQ, 7) KRTT = 1 A 342 

ISAVEA = KFX(KPTT) - 1 A 343 

lA = KFX (KBIT) - ? A 344 

530 IF (TA ,FQ. 0) RO TO 540 A 345 

IF (TTWn f IA.KPIT) .F.O. TTWfldSAVEA.KRIT) ) RR TO 5P0 A 346 

540 CTWPA = COS(ATAN{TTV!n(ISAVFA,KRIT))) A 347 

TL5THA 5 (YYdSAVEA ♦ l.KPIT) - YYIIA ♦ l.KPIT)) / CTWPA A 348 

TSPANA = TSPANA ♦ TLRTHA A 349 

IF (lA ,F0. 0) on TO 560 A 350 

ISAVFA = lA A 351 

550 lA = lA - 1 A 352 

GO TO P30 A 353 

560 COMTIMllF A 354 

C ELIMIMATF. PLAMFORM RREAKPOIKTS WHICH APE WITHIN (R/?)/7000 UNITS A 355 

C laterally a 356 

C A 357 

DO 500 IT = 1, IPLAN A 3R8 

N = AM(IT) A 359 

N1 = N ♦ 1 A 360 

DO 500 J = 1«N A 361 

AA a APS{SPY(J,IT) - SPY(J ♦ ItIT)) A 362 

IF (AA ,EO. 0, .OR. AA ,RT. AB5(TSPAN / ?000.)) GO TO 500 A 363 

IF (AA ,GT, YTOL) WRITE (6,1?10) SPY(J + 1 » IT) .SPY ( J, IT) A 364 

DO 570 I = l.Nl A 365 

IF (YY(TflT) ,NF. SPY(J ♦ l.IT)) GO TO 570 A 366 

YY(I»TT) = SPY(J.IT) A 367 

570 continue a 368 

5PY(J ♦ IdT) = SPY(J,IT) A 369 

580 CONTINUE A 370 

C A 371 

C COMPUTE Z COOPDTMATFS A 372 

C A 373 

CO 620 IT = 1, IPLAN A 374 

r N1 = AN(IT) ♦ 1, A 375 

DO 590 J7 = l.Nl A 376 

590 ZZ(J7»TT) = RTCOHT(IT) A 377 

JZ = 1 A 378 


PARE 9 
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PROGRAM GEOMTRY (Continued) 


PROGRAM GFOMTRY 74/74 GPTsl STATIC 


FTN 4.7*4fl5 


R1/01/P7, PAGE 10 


fiOn J7 = J7 ♦ 1 A 379 

3R0 IF (J7 .GT. KFXfTT)) GO TO MO A 3B0 

77(J7.IT) = 77(J7 - l.IT) ♦ (YY{J7»IT) - YY(J7 - IflT)) * TTWD(J7 A 3R1 

1- l.ITI A 3fl? 

GO TO ftOO A 3S3 

610 JM = - 1 A 3«4 

385 IF,(JM ,FO. KFXfTTU GO TO 6?0 A 3R5 

ZZIJ^’.IT) = Z7(JH ♦ 1»TT) ♦ (YY{JM,IT) - YYfJM ♦ IfTTn * TTWD(jy, A 3 Rft 

IIT) A 3R7 

GO TO 610 A 3BR 

6?0 CONTINUE A 389 

390 C A 390 

C WRITF PLANFOPV PFRIMFTFR POINTS ACTUALLY USFp IN THE COMPUTATIONS A 3Q1 

C A 392 

WPTTF (6,1100) A 393 

DO 640 IT = ItIPLAN A 304 

395 N s AN(TT) A 39S 

N1 = N ♦ 1 A 396 

IF (IT ,80, 2) WRITE (6.1200) A 397 

DO 630 KK = l,N A 398 

tout = ATAN(TTWD(KK,IT) ) * PAD A 399 

400 AOUT = ATAN(AS(KK,IT) ) * PAD A 400 

IF (AS(KK,IT) ,F0. A7Y) AOUT = 90, A 401 

WPITF (6,1110) KK,XY(KK, IT) ,YY(KK, IT) ,Z7(KK,TT) »A0UT,T0UT,MMCD(KK, A 402 

UT) A 403 

630 CONTINUE A 404 

405 WRITF (6,1110) N) , X X (N1 , I T ) , YY (N1 , IT) .77 (N1 , IT ) A 405 

640 CONTlMlE A 406 

C A 407 

C SFLECT WAKE PPFAKPOINTS FOP USE IN CTPCUL2 A 405 

C M0T8 THAT WAKE INTERSECTIONS MUST RE INCU.inFD A 409 

410 C AS WAKF RPEAKPOINTS A 410 

C A 411 

C THIS RFOUIPES A SLIGHT CHANGE IN njHEDPAL ACROSS A 412. 

C THE INTERSECTION POINT ON PCTH PLANFOPMS A 413 

C A 414 

415 IT = 1 A 415 

JKT = 1 A 416 

650 J1 = JKT ♦ 1 A 417 

YJ(JKT) = YYd.TT) A 418 

7(JKT) = ZZ(1,IT) A 419 

420 PJ(JKT) = ATAN (TTWn (1 ,IT) ) * PAD A 420 
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PROGRAM GEOMTRY (Continued) 


•pROPP/'f' PFOMTRY 74/74 OPT = l STATIC 


FTN 4.7 + 4P5 P1/01/P7, 


425 


430 


435 


440 


445 


450 


455 


460 



YJ(J11 = YY(?,TT1 




A 

421 


7(J1) = 771 ?, 11 ) 




A 

422 


PJ{J1) = ATAN(TTwn(?,IT) ) * PAD 




A 

427 


M = AN (IT) 




A 

4?4 


JKT s J1 ♦ 1 




A 

4 25 


Ml s N - 1 




A 

426 


YMINT = 0. 




A 

427 


DO 660 J s l.P 




A 

428 

P60 

YPINT = AMIMI(YMTNT.YY(J«IT) ) 




A 

4 29 


no 6 P 0 = 2 .N 1 




A 

430 


K1 = KK ♦ 1 




A 

431 


JM = JKT - 1 




A 

432 


JW? = JKT - ? 




A 

433 


K? = KK ♦ 2 




A 

434 


IF (YY(KK*IT) .FO, YMINT) PC TO 700 




A 

4 35 


IF (YY{K1,IT) ,F0. YY(KK,TT) .and, YY(K?,IT) 

.6T. YY(KI.IT)) 

60 

TO 

A 

4 36 

1 700 




A 

437 


IF (YY(K1,1T) ,0t. YY(KK.IT) .AMD, YY(K?»1T) 

.GT, YY(K1,IT)1 

60 

TO 

A 

43B 

1 700 




A 

4 39 


tout = ATAN(TTWD(KK,TT) ) * RAD 




A 

440 


IF (YV(KK»IT) ,NF, YY(KI.IT)) GO TO 670 




A 

441 


PJlOKT - 1) = ATAN(TTWD(K1 ,TTn * PAD 




A 

44? 


GO TO 600 




A 

443 

670 

YJ(JKT) = YY(Kl.lT) 




A 

444 


Z(JKT) = Z7{K1,TT) 




A 

445 


PJ(JKT) = ATAN(TT^D(K1,1T)> • RAD 




A 

446 


IF {PJ(JW2) ,NF. PJ(JM)) 60 TO 6fl0 




A 

447 


YJ(JM) = YJ(JKT) 




A 

44B 


Z(JM) = ZIJKT) 




A 

449 


PJ(JM) = PJ(JKT) 




A 

450 


JKT = JM 




A 

451 

6P0 

CONTIMIIF 




A 

45? 


JKT = JKT + 1 




A 

453 

600 

continue 




A 

454 


JKT = JKT ♦ 1 




A 

455 

700 

CONTINUE 




A 

456 


IF (IT .EO, IPLAN) 60 TO 710 




A 

457 


IT = IT ♦ 1 




A 

458 


GO TO 650 




A 

459 

710 

CONTINUE 




A 

460 

C 





A 

461 

C 

MOVF planform two prfakpoimts vertically to 

COINCIDE 



A 

462 


PAnF n 
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PROGRAM GEOMTRY (Continued) 


465 


470 


475 


4P0 


AR5 


490 


495 


500 


PP0PR4M PFOHTPY 74/74 f)PT=l PTATIT 


FTN 4.7+4R5 


Ri/oi/27, i3.:^5,n9 


PARF 1? 


C WITH POINT AT RAl^F Y ON PLANFORM ONF IF Y VAI NFS FA^'F A 463 

C and ARF niFF 7 VAUiE5,LF55 THAN TOLERANCE, PIE7 A 464 

C A 465 

IE (IPLAN .FO, 1) GO TO 730 A 466 

OIFY = l.E - 07 « 467 

DIF7 = l.E - 04 ^ 468 

JKTl = JKT - 1 A 469 

no 7?0 IC = 1,JKT1 A 470 

YCOHP = YJ(IC) A 471 

ZCOMP = Z(IC) A 472 

DO 7?n JC = l.JKTl A 473 

IF (AR5(YJ(JC) - YCOMP) ,LT, OIFY .AND. ARRfZcJC) - 7C0MP) ,LT. 01 A 474 

IFZ) 7(JC) = 7C0MP A 475 

7?0 continue a 476 

730 CONTINUE A 477 

C A 478 

C PART ONF - SECTION THREE - LAY OUT YAWED HOPSFfHOF VORTICES A 479 

C A 4R0 

STRUE =0. A 4R1 

NSSWSVin =0 A 4R2 

NSSWSV(2) =0 A 4R3 

MSV(l) =0 A 4R4 

NSV{?» “0 A 4R5 

DO R20 IT = I.TPLAN A 4R6 

NI = ANdTl 4 1, A 4R7 

1=0 A 4RR 

J = 1 A 4R9 

YIN = POTSV(IT) A 490 

ILE = KFX<IT) * A91 

ITF = KFX(IT) A 492 

C DETERMINE SPANWISE POPDEPS OF HORSESHOE VORTICES A 493 

740 IXL =0 A 494 

IXT = 0 A 495 

1=1*1 A 496 

CPHI = COS<ATAN<TTWn(ILE,lT) n A 4Q7 

IF (YIN ,RE. (SPYIJ.TT) ♦ V'TOL * CPHI)) RO TO 750 A 49R 

C POPDER IS WITHIN VORTEX SPACING TOLERANCE (VSTOL) OF RRFAKPOINT A 490 

C therefore use the next RRFAKPOINT TNROAPD FOR THE PORDEP A 500 

VPORD(I) = YIN * 

60 TO 7R0 A 500 

C USE nominal vortex SPACING TO DETERMINE THF POROER A 503 

750 VROPOd) = SPYfJ.lT) A 504 
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PROGRAM GEOMTRY (Continued) 


Ppnr)o/il^ RFOPTRY 74/74 nPT=l static 


FTM 4.7*4fls 


«l/01/?7, n,SS.3R 


sns 

C 

CORPUTF SUPSCPTOTS ILF AND ITF TO INDICATF WHICH 

A 

505 


C 

RRFAKPOINTS AFF APJftCFNT AND WHETHER THEY APF ON THF WIND LFADINR 

A 

5A6 


C 

EDGF OR THF TRAlLlMG FORF 

A 

S07 


7ft0 

IF (J .GF. Ml) Rfi TO 770 

A 

=^00 



IF ISPV(J»IT) ,NF. SPYIJ ♦ IfiT)) GO TO 770 

A 

S09 

'^10 


IXL = IXL ♦ lYl IJ*IT) 

A 

Sin 



IXT = TXT ♦ lYT(JtlT) 

A 

SI 1 



J = J ♦ 1 

A 

S12 



GO TO 760 

A 

sn 


770 

YIN = SPY(J,IT) 

A 

SIA 

51=; 


IXL = TXL ♦ TYKJfiT) 

A 

■^15 



IXT = TXT ♦ lYT(J.lT) 

A 

S16 



J = J ♦ 1 

A 

517 


7P0 

CONTINUE 

A 

SIR 



IPHI = ILF - TXL 

A 

519 

s?o 


IF <J .CtF. N1) IPHI = 1 

A 

s?n 



YIN s yin - VI * COS(ATAN(TTWD(IPHI,IT) ) ) 

A 

521 



IF (I ,NF. 1) RO TO ROO 

A 

P22 


7sn 

ILE = ILE - IXL 

A 

5?3 



ITF = ITF ♦ TXT 

A 

524 

S?5 


GO TO 740 

A 

52S 


c 

COMPUTE coordinates FOR CHOPPWISE ROW OF HORSESHOE VOPTiCEs 

A 

P26 


noo 

YO = (VPOROn - 1) ♦ VROPDlI)) / ?. 

A 

p?7 



HW = (VRORDd) - VPOPOd - 1)) / ?, 

A 

52B 



IMl = I - 1 ♦ NSSWSVd) 

A 

529 



7HdM)) = Z7dLF.IT) ♦ (YO - YY(ILF.IT)) * TTwOdLF.lT) 

A 

S30 



PHI (IN] ) s TTwndLE.IT) 

A 

531 



SSWWA(IMl) = ASdLF.IT) 

A 

532 



XLE = XX(ILF.IT) ♦ ASdLE.IT) * (YO - YYdLF.IT)) 

A 

533 



XFT = XX(ITF.IT) ♦ ASdTF.IT) ft (YO - YYdTF.IT)) 

A 

534 

53*5 


XLOCAL = (XLF - XFT) / TPLSCWdHl) 

A 

535 


c 


A 

536 


c 

COHPlJTF WiNR AREA PROJFCTFO TO THF X - Y PLANF 

A 

537 


c 


A 

S3R 



STRUE = STPUF ♦ XLOCAL ft TPLSCWdMl) ft (HW ft ?.) * 2, 

A 

S39 

S40 

c 


A 

540 



NSCW = TPLSCWdMl) 

A 

P41 



DO RIO JCW * l.NSCW 

A 

P42 



AJCW = JCW - 1 

A 

543 



XLEL = XLE - AJCW ft XLOCAL 

A 

544 

P4F 


NTS = JCW ♦ MSVd) ♦ MSV(?) 

A 

S4S 



PM (NTS) = XLEL - .2R * XLOCAL 

A 

546 


PARF l.T 



PROGRAM GEOMTRY CContinued) 



PPOHPAM ( 

f^FOMTPY 7A/7A OOT=1 «;T4TTr FTM 4,7*4R5 

8i/ni/a7. 13.3&.39 

PARE 




PV(NT?) = XLFL - .TF * XlnCAI. 

A 547 





P5KNT8) s ((XLF - PNfNTS)) * AS(ITF,IT) ♦ (PMfMTcj - xFT) 

* AS (II. A 548 





lF#ITn / (XLF - xFT) 

A 549 


S«iO 



S(NT55) s HW / CPHI 

A 550 





0(NT55) * YO 

A 551 




810 

continuf 

A 552 





PSV(IT) * HSV(IT> ♦ N«?C>' 

A 551 



c 



A 554 



c 


TFST TO OETFPMTMF WHFN WT^O POOT IS PEACHEO 

A 555 





IF (VPOPD(I) ,LT. VPFOn.TT)) 00 TO 790 

A 55B 



c 



A 557 





NSSHSV(IT) a T - 1 

A 55fl 




8Z0 

CONTINUE 

A '?59 


•ifiO 



M. = MSV(l) ♦ PSV(?) 

A 550 



c 



A 5M 



c 


COMPUTE ASPECT RATIO AMP AVERAOE CHOP!) 

A 5ft? 



c 



A 5ft3 





eoT s -POT 

A 5ft4 





Ap * 4. * POT * ROT / SPEF 

A 5ft5 





ARTRUF = A.'# POT * ROT / STRUE 

A 5ftft 





CAVE = STPUF / (?. * POT) 

A 5ft7 





PFTA s n. - MACH * MACH) ** .5 

A 5ftP 





WRITE (6.1?40) M 

A 5fi9 


S70 



WRITE (6,1?50) (IT,MSV(IT) .WSSWSV (IT) .IT = I.IRLAN) 

A 570 





IF (SCW .NE. 0.) WRITE {ft,l??0) SOW 

A 571 





SCWJK r SCW 

A 57? 





IF (SCW .EO, n.) write (f,,l?30) (TPLSCW(I).T = l.NSTA) 

A 573 



c 



A 574 


•57P 

c 


APPLY PRANDTL-OLAUEPT CORRECTION 

A 575 



c 



A 576 





DO B30 NV s i,M 

A 577 





PSI(NV) = ATAN(PSKMV) / PETA) 

A 57R 





PN(NV) a PN(NV) / PETA 

A 579 


'5«0 


830 

PV(NV) = PV(NV) / PETA 

A 5PQ 





NSSW = NSSWSV(l) ♦ MSSWSV(?) 

A 5R1 





JN = 0 

A 5ft? 





00 H50 JSSW = 1.N5SW 

A 5R,3 





CHORO(JSSW) = 0, 

A 5ft4 





NSCW = TRLSCW(JSSW) 

A 5R5 





DO P40 JSCW = l.NSCW 

A 5ftft 





JN a JN + 1 

A 5ft7 





CHORO(JSSW) = rHORD(JSSV) - ?. * (PV(JN) - PN(JN)) * PFTA 

A 5flft 



PROGRAM GEOMTRY (Continued) 



PPOGPAV PFnMTPY 74/74 OPT=l STATIC FTN 4.7+48S 

81/01/27. 



PiO 

CONTINUF 

A 

509 



PSO 

XTF<J«:i;wi = (PV(JW) ♦ (PV<jK'r - PN(JMJ / 7.1 * BFTA 

A 

590 




PHTSUP =0, 

A 

591 




DO 860 IKY = l.NSSW 

A 

592 




PHISUM = PHISl'M ♦ PHT(IKY) 

A 

C93 



P60 

continue 

A 

5P4 


C 



A 



C 


FORCE USF OF PROGRAM CIRCUL? 

A 

596 


c 



A 

597 




IFLAG = 2 

A 

598 


c 



A 

599 

fton 

c 


PEAR CHORD LOAD SHAPES TO PF USER IN NEXT OVERLAY 

A 

600 


c 



A 

601 




REAR (S.1300) XCFW.XCFT 

A 

60? 


c 



A 

603 


c 


READ TPFFFT7 PLANE RPAG ANALYSIS RATA FOP NEXT OVERLAY 

A 

604 

fiOS 

c 



A 

60S 


c 


NLLINFsNO OF LIFTING LINF*: 

A 

606 


c 



A 

607 


c 


FJFLAGsO, FOR CL CONSTRAINT ONLY 

A 

608 


c 


fjflarsi, fop- cl. cm constraints 

A 

609 

ftl n 

c 


FJFLAG=2. FOP CL.CR CONSTRAINTS 

A 

610 


c 


FJCTL=0. FOP NO THICKNESS OP PLOTS 

A 

611 


c 


FJC.TL=1. FOP NO thickness* PLOT MEiAN CAMPERS 

A 

61? 


c 


FJCTL=2. FORTHICKNESSI PLOT AIRFOIL SHAPES 

A 

613 


c 



A 

614 

61S 

c 



A 

615 


c 


FSLP=1. FOR PUNCHER OUTPUT OF SURFACE SLOPES <SFE PROG 70C0ETM) 

A 

616 


f 


FSLP=0. FOP NO PUNCHED OUTPUT OF SURFACE SLOPES 

A 

617 


c 



A 

61B 




NLLINE = IPLAN 

A 

6!9 

ft?0 



JFLAG = 0 

A 

6?0 




REAR (S.1020) FJELAG.FJCTLfFSLP 

A 

621 




JCTL = IFIX(FJCTL) 

A 

62? 




JFLAG = IFIX (FJFLAG) 

A 

623 




JSLP = IFIX (FSLP) 

A 

624 

5?5 



ICT s 0 

A 

6?5 




INC = 0 

A 

626 




1ST = 1 

A 

627 




ISP = 0 

A 

6?P 




JST = 1 

A 

629 

630 



J5P = 0 

A 

630 


PAGF IS 
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PROGRAM GEOMTRY (Continued) 



PPOGRAM RFOMTRY 74/7* PPT=1 «:TATIC FTN *,7**R5 

P1/01/P7. 




JNC = 0 

A 

631 



R70 

CONTINUE 

A 

632 




ICT a ICT ♦ 1 

A 

633 




JF (ICT .GT, NLLTNE) GO Tn PRO 

A 

63* 

f)3? 



READ (5*10?0) PRK(ICT) ,TOT (ICT) 

A 

635 




NPRK(Trt) = IF1X(GPK(1CT) ) 

A 

636 




NTOT(ICT) s TFIX (TOT(ICT) ) 

A 

637 




ISP = TSP ♦ NPPKUCT) 

A 

638 




1ST a 1ST ♦ INC 

A 

639, 

6*0 



NPPJ = NPRKflCT) - 1 

A 

6*0 




JSP = JSP ♦ NPPJ 

A 

6*1 




JST * JST ♦ JNC 

A 

6*? 




READ (5»10?0) (SFGG(T),T = JST»JSP) 

A 

6*3 




DO 8fl0 I = JST. JSP 

A 

6** 

6*5 


PRO 

LSEG(T) = IFIX (SFGG(I) ) 

A 

6*5 




INC = NPRK(ICT) 

A 

6*6 




JNC = NRRJ 

A 

6*7 




60 TO P70 

A 

6*8 



PRO 

CONTINUE 

A 

6*9 

650 



CRPM = 0, 

A 

650 




IF (JFLAG .EO. 0 .OP, JFLAG ,EO. 1) GO TO 900 

A 

651 




READ (5.1030) CRPM 

A 

652 



ROO 

CONTINUE 

A 

653 




WRITE (6,1050) XPREF 

A 

65* 

655 

C 



A 

655 


C 


READ THICKNESS DISTpTRUTION FOR USE IN 70C0ETM 

A 

656 


c 


THIS DATA NUST PF SPECIFIED ONLY IF JCTL IS NOT 7FPO 

A 

657 


c 


SPECIFY PERCENT X/C TAPLE .FOLLOWED PY T/?C TAPLE 

A 

658 


c 



A 

659 

660 

c 


IF JCTL IS NOT 7FRO. THEN LANGLEY PLOTTING SURPOUTINE 

A 

660 


c 


INFOPLOT IS URED TO PLOT THE DESIGNED AIRFOIL SECTIONS 

A 

661 


c 


IN PLANES NORMAL TO THE WING PLANE, OR THE CAMPER SURFACE 

A 

662 


c 



A 

663 


c 


ONLY ONE thickness DIST FOR ALL SPAN STATIONS MAY 

A 

66* 

665 

c 


PE SPECIFIED 

A 

665 


c 



A 

666 


c 


N7S IS NO OF PCTX,PCT7 VALUES SPECIFIED, WHERE PCT7 

A 

667 


c 


IS ONE HALF OF TOTAL MAX THICKNESS OVER LOCAL WiNO 

A 

668 


c 


CHORD 

A 

669 

670 

c 



A 

670 


r 


N7S MUST PE LESS THAN 51 

A 

671 


c 



A 

672 


PftRE If) 
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PROGRAM GEOMTRY (Continued) 


PPOGPAM GFONTRY 74/74 OPT=l STATIC 


FTN 4. 7*485 


81/01/P7, 13,35.39 


PAGE 17 


IF {JCTL .EO, 0) GO TO 910 A 673 

IF (JCTL .EO. 1) GO TO 910 A 674 

675 read (5»1020) FN7S A 675 

N7S » IFIX(FN75) A 676 

READ (5,1040) (PCTX{I),I = 1,NZS) A 677 

READ (5,1040) (PCTZ(I),I = l.NZS) A 678 

910 continue a 679 

680 IF (M ,GT, 400) GO TO 940 A 680 

NSW = NSSWSV(l) ♦ NSSWSV(2) A 681 

IF (NSW ,GT. 50) GO TO 930 A 68? 

IT5V s 0 A 683 

DO 920 IT * l.IPLAN A 684 

685 IF (AN(IT) .LE. ?5.) GO TO 920 A 685 

WRITE (6,1280) 1T,AN(IT) A 686 

ITSV * 1 A 687 

920 continue a 688 

IF (iTSV ,GT. 0) GO TO 960 A 689 

690 GO TO 950 A 690 

930 WRITE (6,1270) NSW A 691 

GO TO 960 A 692 

940 WRITE (6,1260) M A 693 

GO TO 960 A 694 

695 950 REWIND 25 . A 695 


WRITE (25) R0T,M,PFTA,PTEST,nTEST,TPLSCW,O,PN,PV,S,PSI,PHI,7H,NSSW A 696 
l,TWlST,CPEF,SPFF,CAVE,CLDES,STRUE,AP,ARTRUE,PTCnHT,CONFlG,NSSWSV,M A 697 
2SV,KR0T,PLAN,TPLAN,MACH,SSWWA,CH0PD,XTE,KR1T,TSPAN,TSPANA,XCFW,XCF a 698 
3T,1FLA6,YREG(1,1) ,YRFG(1,2) ,ML INF ,KTOT , NBRK ,L SEG , Y J ,7 , PJ , SCWJK , JF A 699 


700 4LA6,CPRP,VBOPn,XPREF,PCTX,pCTZ,NZS, JCTL, JSLP A 700 

END file 25 A 701 

WRITE (6,1290) A 702 

WRITE (50,1310) A 703 

60 TO 970 A 704 

705 960 total = TOTAL - 1. A 705 

WRITE (50,1320) A 706 

970 CONTINUE A 707 

END file 50 A 708 

STOP A 709 

710 980 ICODEOF = 1 A 710 

WRITE (6,1130) CONFIG A 711 

GO TO 960 A 712 

990 ICODEOF =2 A 713 

WRITE (6,1140) K, IT A 714 



PROGRAM GEOMTRY (Continued) 


PROPPflV PFPMTPY 74/74 Odt= 1 <?TATir FTW 4,7*485 Rl/ni/?7. l3,!^5.aP 


715 GO TO 060 A 715 

inno ICOOEOF =3 A 716 

WRITE (6.11701 PTE5T.0TF5T A 717 

GO TO P60 A 71R 

C A 719 

7?0 C A 7?n 

C A 7?1 

1010 format (3F1o.4»F1 0.71 A 77? 

1070 format (10F5.01 A 7?3 

1030 FORMAT (3F10.0) A 7?A 

775 1040 format (fFlo.O) A 7?5 

1050 FORMAT (/*5X,?0HX SHIFT OF ORIGIN = .F10.4.6H UNITS/) A 776 

1060 FORMAT ( 1H1//63X , 13HOF0MFTRY OATA) A 777 

1070 Format {///ASX.AI 0.77HRFFFRENCF PLANFORM HAS,I3.7H CURVES//1?X. 19H a 7?R 
IPOOT CHOPP HFTGHT = . FI 4 , 8 . 4 X , 29HVAPI ABLE SWEEP PIVOT PPS I T TON , 4X . 6 A 779 

730 ZHXCSl =.F12.5,«^X,6HY(S> = »F17 .5//46X . 40HPRE AK POINTS FOR THE REFER A 730 

3ENCF PLANFopM /) A 731 

lOPO format (PF10,4) a 732 

Io'ro format (1H1//47X, 1 THCONFIOIIPATION N0..F8.0/J A 733 

1100 FORMAT {2?X«5HPOTNT,6X,lHX,llX.lHY.llX»lH7,10X.5HSWFFP,7X,PHniHFnR A 734 
735 1AL.4X»4HMOVF/6PX,5HANGLE,RX»5HANGLE.6X.4HCOPF/1 A 735 

7110 FORMAT (20X. 15,3F1?.5,2F14.5.16) A 736 

1120 format (/40X,5Hri|PVE.I3.RH IS SWEPT.F12.5.70H nFGPFES ON PLANFOPM, A 737 
113) A 73R 

1130 format nHl///4lx.43HFNn OF FILE FNCOIJNTFPFO AFTER COMFlGUPAT TON , F A 739 
740 17,0) A 740 

1140 FORMAT (1H1///1PX.45HTHF FIRST VARIARLE SWFFP CURVF SPFOIFIED (K = A 741 
I.I3.44H ) OOFS MOT HAVE AN M CODE OF 2 FOR PLANFOPM, l4) A 742 

1150 FORMAT (5F5.1 ,?F10 .4) A T43 

1160 format ‘(?6X,I5.?f1?,5,2F16.5,4X,I4) A 744 

745 1170 format ( 1 HI ///I X , 3PHFRROR - PROGRAM CANNOT PROCESS PTFST =*F5,l,12 A 745 

IH ANO OTEST =,F5,1) A 746 

UPO FORMAT {//4PX,35HPPFAK POINTS FOR THIS CONFIGURATION//) A 747 

1190 FORMAT (2PX,5HPniNT,6X,lHX,nx,lHY,llX,5HSHEFP,10X,RHDlHEDRAL,7X,4 A 74P 
1HMOVE/3RX,3HRFF.9X.3HPFF,10X.5HANGLE. 11X,5HANGLE,9X.4HC00E/) A 749 

750 1200 format (/52x ,?PHSFC nND PLANFORM PRFAK POINTS/) A 750 

1210 format (////?5x ,34HTHF RPFAKPOINT LOCATED SPANHtSF AT ,F 11 ,5 , 3X , ?0H A 75\ 
IHAS seen AOJUSTFO T0,FR,5////) A 75? 

1220 FOPMAT (/43x . , 0 .4 1 H HORSESHOE VORTICES IN EACH CMOROWISF ROW) A 753 

1230 format (/23X,9PHtAP|.F OF HOPSESHOE VORTICFS IN EACH CHOPOWISF ROW A 754 
755 1 (FROM TIP TO POOT PFC-INNTmO WITH FIRST PLANFORM) //75F5,0/25F5.0) A 755 

1240 FORMAT (///33XTS.62H HOPSFsHOF. VORTICES USED ON THF LEFT HALF OF T A 756 


PARE IP 


01 
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PROGRAM GEOMTRY (Concluded) 


program GFOMTRY 74/74 OPT*l STATIC 


FTN 4. 7*405 Rl/01/?7, PARE 19 


IHE CONFIGURAT1ON//5OX.30HPLANFORP TOTAL flpANWISF/) A 7S7 

1?50 FORMAT (52X * 14, 1 OX 1 13 , 1 IX ♦ 14 ) A 750 

1?60 FORMAT (IHI //I OX , 16 , 93HH0RSFSH0E VORTICES LAIPOUT, THIS IS MORE TH A 759 
760 lAH THE 400 MAXIMUM, THIS CONFIGURATION IS ABORTED,) A 760 

1270 format nHl//I0X,I6,I0lH ho«S OF HORSESHOE VORTICES LAlOOUT, THIS A 761 
IIS MORE than THF 50 MAXIMUM, THIS CONFIGURATION IS ABORTED,) A 762 

1280 format nHl//lOX,0HPLANFORM,I6,4H HAS»I6,74H BREAKPOINTS, THE MAXI A 763 
IMUM DIMENSIONED IS 25, THF CONFIGURATION IS ABORTED,) A 764 

765 1290 format 1 ///45X « PRHMINIMUM FIELD LENGTH k 63000) A 765 

1300 FORMAT (6Fl0,4) A 766 

1310 format (35H«C0MPlLE VLMCDRAGS.VLMCCIR2.VLMCZOC) A 767 

1320 FORMAT (IBH^COMPlLE VLMCDvmMT) A 768 

END A 769- 



PROGRAM WINGAL 


PROGRflV I.'ING/'L 74/7A OPT=l «:T/iT!r 


FTN 4,7*APS 


G1/OI/P7, 


PAGF 1 


1 




in 


1*^ 


?n 


?F 


30 


3G 


OVEPLAY (WiNRTL.n.O) 

PPOGPAM WlMRAl (nll7PnT»TAPFfr = Ol)TPl)T»TAPFln»TAPF?0,TaPE?5»PllNCH) 
COMMON /AL| / pOT»M,RFTA,PTFST»OTE?T»TRLSCW (Go ) » 0 f 400 ) .PN (400 ) » PV ( 
1400),G{400),PFI(400) ,PHI (SO) «7H(50) ,N5SW 

common /ONFTHRF/ TwIST( 2) ,CREF,SREF»CAVF,CLnFS»STRUF,AP,ARTRUE,RT 
1CDHT(?) ♦CONFIG.MSSWSV(?) »MSV(?) , KPOT ♦ PL AN, IPL AN ♦MACH. SPWWA (SO ) «yCF 
2 w,xcft,yreg(i ,?) , rPRM,vPopn(Si ) .xppff 
COMMON /TOTHPF/ ClR(400) 

COMMON /CCRROn/ CHORO(SO) ,XTE (SO) .KP1T»TSPAN.TSPAMA 
COMMON /JMK/. NT0T(?) ,NPPK(?) ,LSEG(10) ♦ YJ ( 1 0 ) , 7 ( 1 0 ) tP J ( 1 0 ) ,SCWJK 
common /JK?/ PCTX (SO) »PCT7 (50) »N7Sf JCTL.JSLP 
COMMON /FEN/ NSPT (4) ,NLLINF« JFLAG 
REAL MACH 
C 
C 

C VOPTFX LATTTCF AFRODYNAp^IC COMPUTATION 

C 

PEWINO ?S 

READ (25) POT»M,bFTA,PTFST,OTFST,TRLSCW, 0,PN,PV,S,PST ,PHI ,7H,NSSW, 
lTWIST»CREF»SPFF,CAVE,CL0FS,STRUF,AR,ARTPUF»RTCnHT,r0NFTG,NSSWSV,M5 
2V,KP0T.PLAN,IPLAN,M4CH,SSKWA,CH0P0,XTF*KPTT,TSPAN,TSPANA,XCFW,XCFT 
3»IFLAG,YREG{1 ,1) ,YPEG (1 ♦?) , NLLINE , NTOT ,NPPK ,LSFG, VJ,7,PJ» SCWUK, JFL 
4AR,CRPM,VP0Pn,XPPEF.PCTX»PrT7»N7S»JCTL, J5LP 
C 
C 

WINGTL = 6LWTNGTL 
recall = 6HRFCALL 
C 
C 

CALL OVERLAY (W TNGTL , 1 * 0 . RECALL ) 

C 

CALL OVERLAY (W INGTL » 2 » 0 , PFCALL ) 

STOP 
READ (5) 
read (S*10) 

WRITE (6fl0) 

C 

10 FORMAT (IX) 

END 


A 1 
A Z 
A 3 
A 4 
4 5 

A 6 
A 7 
A 8 
A 9 
A 10' 

A U 
A \Z 
A 13 

A 14 

A IS 
A lA 
A 17 
A IR 
A lO 
A ?0 
A ?1 
A 7? 

A 23 
A 24 
A ?S 
A 2A 
A 27 

A ?a 
A 29 
A 30 
A 31 
A 32 
A 33 
A 34 
A 3S 
A 36 
A 37 
A 36 
A 39- 


subroutine filup 

00 


SUP.PniITTNF FTI.IIP 74/7A PPT=] >;TfiTTV 


FTN 4,7*AR5 




1 



SIIRDOIITINF PTUIP (X,Y.W.t'!*vARI .VADD) 


P 

1 


C 


HATF 0R-1?-6Q SMPROUTTNE PFVTCFP 07-07 

_^9 »«»»««««« 

R 

2 


c 


MnniFTCATirw nr mrrapy impppolatiom «:uPPnnTiNF 

FTLItP 

R 

3 




otmenfion vAPnn* vAPotn* v(3». yyc?) 


R 

4 

=; 



OIPFNFION IT (43) 


R 

5 


c 




R 

6 


c 


T^'ITIALI7F AIL TMTFPVAL POIMPRS TO -1.0 FOR HOMOTONICTTY CHFfK 

P 

7 




DATA (I I (J) .0=1 ,43) /4.3*-l / 


R 

8 




MA = IAR5(M) 


P 

9 

in 

c 




P 

10 


c 


ASSIRN IMTFRVAL POIh'TFR FOR (?IVFN V4R1 TAPLF 


P 

11 


c 


THF SAME POIL'TFR WILL BF USED ON A filVFN VARI TABLE 

FVEPY TIME 

P 

1? 




LT = MOniLOCF (VARl n ) ) ,43) ♦ 1 


P 

13 




I = IKLI) 


R 

14 

15 



IF (I ,GE, 0) GO TO 60 


P 

15 




IF IN ,LT. ?) FO TO 60 


P 

16 


r 




P 

17 


c 


MONOTONICITY CHECK 


R 

IR 




IF (VAPK?) - VADl(l)) ?0,?0,40 


R 

19 

?o 

c 


FRPOR TN MONOTONTCITV 


R 

20 



10 

K = LOCFIVAPI (D) 


P 

21 




PRINT 170, J,K, (VAPT (J) ,J = 1 ,N) , ( VARD { J) , J = ) ,N) 


B 

2? 




STOP 


P 

?3 


c 


WONOTONIC OFCPFAsING 


R 

?4 

?F 


?o 

DO 30 J = ?.M 


P 

25 




IF (VARI(J) - VAOI(j - D) 30,10,10 


P 

?6 



30 

CONTINUE 


B 

27 




GO TO 60 


P 

20 


r 


HONOTONIC INCRFASINO 


P 

29 

TO 


40 

DO SO J = P,N ^ 


P 

30 




IF (VAPI(J) -'varKJ - 1)) 10,10,50 


R 

31 



50 

CONTINUE 


R 

32 


c 




B 

33 


c 


INTERPOLATION 


R 

,34 

^5 


60 

IF (T .LE, 0) I = 1 


B 

35 




IF (I ,GF. )') I = N - 1 


R 

36 




IF (N .LF. 1) GO TO 70 


P 

37 




IF (MA ,NE, 0) on TO BO 


R 

38 


c 


7FRO OPDER 


R 

39 

40 


70 

Y = VAPD(l) 


R 

40 




GO TO 160 


P 

41 


c 


locate I interval IX (I) ,LF.y ,LT.X (I*!) ) 


P 

42 


PAT-F 1 


(cont 'd) 



SUBROUTINE FILUP CConcluded) 


SURPOUTINF FTLUP 7«/7« OPT = l STATIC FTN 4,7 + 48‘5 fll/01/?7, 13.1R.34 




RO IF ((VARKI) - X) * (VARTd ♦ 1) - X)\ U0»ll0t90 

B 

43 


c 

IN GIVFS OlPFCTinN FOR SEARCH OF INTERVALS 

B 

44 

4R 


90 IN = SIGNd.Ot (VAPI (I ♦ 1) - VARI(T») • (X - VARI(T))) 

B 

45 


c 

IF X OUTSIDE FNOPOTNTS, FXTRAPOLATF FROM END INTERVAL 

R 

46 



inO IF ((I ♦ IN) .LF, 0) GO TO 110 

R 

47 



IF ( (t ♦ IN) ,PF. N) GO TO 110 

8 

4R 



I s I ♦ IN 

B 

49 

RO 


IF ((VARKI) - X) * (VARKI ♦ 1) - X)) llOtllOflOfl 

R 

50 



no IF (MA .EO. ?) GO TO 1?0 

R 

51 


c 


R 

5? 


c 

FIRST ORDER 

R 

S3 



Y = (VARD(I) « (VARKI ♦ 1) - X) - VARD(I ♦ 1) * (VARI(I) - X)) / 

B 

54 

RR 


1 (VARKI + 1 ) - VARI ( I) ) 

P 

55 



GO TO 160 

B 

56 


c 


R 

57 


r 

SECOND ORDER 

R 

5R 



1?0 IF (N .EO, ?) GO TO 10 

P 

59 

frO 


IF (I .EO. (N - 1 ) ) PO TO 140 

R 

60 



IF (I ,EQ, 1) GO TO 130 

R 

61 


c 

PICK third POINT 

B 

62 



SK = VARKI ♦ 1 ) - VARI (T ) 

P 

63 



IF ((SK « (X - VARKI - nn .LT. (SK « (VARKI ♦ ?J - X))) GO TO 

R 

64 

RR 


1140 

R 

65 



130 L = I 

B 

66 



GO TO IRO 

R 

67 



140 L = I - 1 

R 

6fl 



IRO V(1 ) = VAPI (L) - X 

R 

69 

70 


V(?), = VARI (L ♦ 1) - X 

P 

70 



V (3) s VAPI (L * ?) - X 

B 

71 



YY(1) s (VARD(L) * V(?) - VAPD(L ♦ 1) * V(D) / (VARKI ♦ 1) - VAR 

R 

72 



IKD) 

R 

73 



YY(;?) = (VAROd ♦ 1) * V(3) - VARO(L ♦ ?) * V(?M / (VARI(L ♦ ?) - 

R 

74 

7R 


1 VARKI ♦ in 

R 

75 



Y = (YY(1) * V(3) - YY(?) * V(D) / (VAPI (1. ♦ ?) - VAPI (L) ) 

R 

76 



160 IKLI) = I 

R 

77 



PFTUPN 

R 

7R 


c 


R 

79 

PO 

f 


R 

PO 


c 


fl 

PI 



170 FOP^'AT (IHI.ROH TARiF RFLOW OUT OF OROFR FOR FTLlip AT POSITION « 

R 

P2 



IIR»/'31H X TfPLF IS STOPFO IN LOCATION ,06, // (API R.P)) 

P 

83 



FhT 

P 

84. 


PAGE ? 


(Cont 'd) 



O 


SUBROUTINE SIMEQ 


?;URPnUTINF 

1 

5 

1 0 
15 
20 
25 
30 
35 
40 


STMFG 

1 74/74 OPT=l STATIC FTN 4,7+4fi5 

BI/ni/27, 13, 3ft. 34 PAGE 


SUPROUTINE SIPFO ( A , M , B » M , OFTERH , IP I VOT f N'MAX 1 1 SCALF ) 

C 

1 


SOLUTION OF simultaneous L TNFAR* EQUATIONS 

C 

2 


*** DOCUMENT OATE Ofl-Ol-FB SUBROUTINE REVISED OP-Ol-Ffl •** 

c 

3 



c 

4 


DIMENSION IPIVOTIN), A(NMAX»N)» R(NKAXtM) 

c 

5 


equivalence (IPOWfJROWl# { ICOLUM, JCOLUM) , (AMAX»T,SWAP> 

c 

6 



c 

7 


initialization 

c 

fl 



c 

9 

in 

ISCALF = 0 

c 

10 


RI = 10. 0 •* 100 

c 

11 


R2 = i.n / Rl 

c 

12 


PFTERM = 1,0 

c 

13 


DO 20 J = I.N 

c 

14 

?0 

IPIVOT(J) = 0 

c 

15 


00 3B0 I = I.N 

c 

16 



c 

17 


SEARCH FOR PIVOT ELEMENT 

c 

IB 



c 

19 


AMAX = 0,0 

c 

20 


DO 70 J = I.N 

c 

21 


IF (IPIVOT(J) - 1) 30.70.30 

c 

2? 

30 

no SO K = l.M • 

c 

23 


IF (IPIVOT(K) - n 40,60,300 

c 

24 

40 

IF (APS(AMAX) - APS(A<J,K))) 50,60,60 

c 

25 

50 

I ROW = J 

c 

26 


-ICOLUM s K 

c 

27 


AMAX = A(J,K) 

c 

2 fl 

FO 

CONTINUE 

c 

29 

70 

CONTINUE 

c 

30 


IF (AMAX) so, bo , 90 

c 

31 

flO 

PFTERM = 0.0 

c 

32 


ISCALF = 0 

c 

33 


GO TO 390 

c 

34 

on 

IPTVOT (ICOLUM) = IPIVOT ( ICOLUM) ♦ 1 

c 

35 



0 

36 


INTFRCHANGE ROWE TO PUT PIVOT FLFmFNT ON DTARONAL 

c 

37 



c 

38 


IF (IROW - iCnuM) 100 , 140.100 

c 

39 

1 on 

PFTF.pm = -pftFFM 

c 

40 


po no 1 . = I.N 

c 

41 


= fl(lPOM.l) 

c 

4 £ 


(CoTit 'd) 
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SUBROUTINE SIMEQ (Continued) 


SUPROUTINF 

5IMFQ 74/74 OPT 

=1 STATIC 

FTN 4.7,485 

fll/01/27, 13,38.34 

PA(5E 




A<IROW*L) * A(ICOLUH,U 


C 

43 




no 

A(ICOLUM,L) = SWAP 


C 

44 


45 



IF <M) 140»140,1?0 


C 

45 




1?0 

DO 130 L * 1,M 




C 

46 





SWAP = P(IROW*U 




C 

47 





B(IROWfL) * ft(ICOLUM,L) 


C 

48 




130 

PdCOLUM.L) a SWAP 


c 

49 


50 


140 

PIVOT = AdCOLUW 

1, 

ICOLUM) 


c 

50 





IF (PIVOT) 150, BO 

*150 


c 

51 



C 






c 

57 



c 


scale the DFTFPMINANT 


c 

53 



c 






c 

54 


55 


150 

PIVOTI » PIVOT 




c 

55 





IF (APS(DETERM) 


Rl) IRO, 160,160 


c 

56 




160 

DETERH s DETERP 

/ 

PI 


c 

57 





ISCALF s ISCALF 

♦ 

1 


c 

5fl 





IF (ABS(OETERP) 

- 

Rl) ?10,170,170 


c 

59 


60 


170 

DETERM s DETFPM 

/ 

Rl 


c 

60 





ISCALF s ISCALF 

♦ 

1 


c 

61 





GO TO ?10 




c 

62 




IRO 

IF (ARS(nETFRM) 

- 

R?) 190,190,210 


c 

63 




190 

DFTERM = OETEPM 


Rl 


c 

64 


65 



ISCALF a ISCALF 

- 

1 


c 

65 





IF (APS(nETERM) 

- 

R?) 200,200,210 


c 

66 




?00 

DETFPM = DETFPM 

« 

PI 


c 

67 





ISCALF = ISCALF 

. 

1 


c 

68 




?10 

IF (APS(PIVOTI) 

- 

Rl) 240,220,220 


c 

69 


70 


??0 

PIVOTI = PIVOTI 

/ 

Rl 


c 

70 





ISCALF = ISCALF 


1 


c 

71 





IF (APS(PIVOTI) 

- 

Rl) 270,230,230 


c 

72 




?30 

PIVOTI = PIVOTI 

/ 

Rl 


c 

73 





ISCALF = ISCALF 

♦ 

1 


c 

74 


75 



GO TO ?70 




c 

75 




?40 

IF (APS(PIVOTI) 

_ 

P2) 250,250,270 


c 

76 




?50 

PIVOTI = PIVOTI 

tt 

Rl 


c 

77 





ISCALF = ISCALF 

- 

1 


c 

78 





IF (APS(PIVOTI) 

- 

R?) 260,260,270 


c 

79 


60 


?60 

PIVOTI = PIVOTI 

« 

PI 


c 

BO 





ISCALF = ISCAIF 

- 

1 


c 

81 




?7fl 

DETFPM = DETFPM 

» 

PIVOTI 


c 

82 



c 






c 

83 



c 


DIVIDE PIVOT POW 1 

PY PIVOT ELEMENT 


c 

64 



NJ 

to 


SUBROUTINE SIMEQ (Concluded) 


SUPPDUTINF STMFO 74/74 rPT=l STATJC 


FTN 4.74.4PF; fll/01/?7, PARF, 3 


85 C 

DO 2Pn L = ItN 

IF (IPIVnT(L) - 1) ?RO»?PO,390 
280 A(ir0U)M*L) = A(TC0LUM,L) / PIVOT 
290 continue 

90 IF (H) 320t3?0»300 

300 DO 310 L = 1*N 

310 B(IC0LIIN,L) = P(TC0LUM«L) / PIVOT 
C 

C REDUCE NON-PIVOT ROWS 

5>5 C 

320 DO 380 LI = l.N 

IF (LI - ICOLUP) 330*380.330 
330 T = A(L1«IC0LUN) 

DO 350 L = 1,N 

100 IF (IPTVOTCU - 1) 340*350,390 

340 A(L1*L) = A(L1*L) - A(KOLUP.L) * T 

350 CONTINUE 

IF (M) 380,380.360 
360 DO 370 L = l.P 

105 370 P(Ll.L) = RlLl.L) - PdCOLUNtD « T 

380 CONTINUE 
390 RETURN 
END 


C 85 
C 86 
C 87 
C 80 
C 89 
C 90 
C 91 
C 92 
C 93 
C 94 
C 95 
C 96 
C 97 
C 98 
C 99 
C 100 
C 101 
C 102 
C 103 
C 104 
C 105 
C 106 
C 107 
C 108- 
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PROGRAM CIRCUL2 


PPORPAy TTPrUL? 74/74 OPT=] «^TATir 


FTN 4.744H5 


A1/01/P7. n.7fl.34 


PAPF 1 


1 . 


5 


10 


15 


?0 


25 


30 


35 


40 


C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


OVFRLAY <WINPTL.1«0) 

PROPPAM ClRCl'l.? 

DIMFNSION A(F3,53), C0PAP(P3)» IPTV0T(53), NmA(?>, pppCio), 77H(R 
11). YP(50), YC(SO). TK53.P3). T?(53»53), 73(53.53). 74(53.53). 75 
2(53.53). Tfi(53.53). pKK‘( 50). XT7(51) 
riMFt’SION YTN71(50), YTA'7?(50). CnRDl(BO). COPD?(50). X7K50). X7 
12(50). WN(2). YY(2) 

DIMENSION CKP(51). CKM(51). CBI(50) 

DIMENSION PFPIF(IO). YJK(50), 7JK(50). PJK(50). n7HE7A(lO). RGAM( 
151). AIN7(fi) 

DIMENSION PPl(AOO.l). YCTP(lOfl) 

DIMENSION CRD (5.3) 

COMMON /ALL/ POT»M,PETA,PTES7.07FST«TRLSCM(50) .0(400),PN(400).PV{ 
1400) .S (40 0) .PSI (400) .PHI (*^0) .7H(50) .NSSW 
COMMON /0NF7HPF/ THTS7(2) »CREF.SPFF.CAVF,CLDFS.S7PUF. AR.AR7PUF,P7 
ICDHT (2) .CONFTR,NsSW«;v (2) .MS V (?) .KROT.PLAN, IPL AM.MACH.SSMWA (50) .XCF 
?W.XCF7.YREG(1 ,?) ,CPPM.VPOnn (51 ) .XPREF 
COMMON /T07HRF/ ClR(400) 

COMMON /CCRRDD/ CHORD (50 ) . XTE (50 ) . KPIT .TSPAN, 7SPANA 
COMMON /COP/ COPSUM 

COMMON /JMK/ N70T(2) *NPPK(?) .LSEPdO) . YJ ( 1 0) . 7 ( 1 0 ) .PJ ( 1 0 ) .SCWJK 
COMMON /tel/ 70L.T0L2 
COMMON /SEP/ SJK(50) 

COMMON /EEN/ NSP7 (4) .NLLINE . JFLAG 

THIS PPOGPAM performs A TPFFFT7 PLANE OPTTMI7ATION 
TO COMPUTE THE POUNO CIRCULATION DISTRIBUTION FOR 
MINIMUM INDUCED ORAp FOP ONE OP TWO SYMMETRIC. INTFR- 
ACTINP SUPSONIC PLANFORMS. AN ADVANCED-PANEL THEORY 
DEVELOPED IN NASA Cr-3154. JUNE. 1979. IS USED, 

THIS PROGRAM HAS BEEN WRITTEN BY DR, JOHN H, Kt.IHLMAN. 

PERT. OF MECHANICAL ENGRNR, XMECHANICS* OLD DOMINION 
UNIVERSITY. NORFOLK* VA. ?350R. 

UNDER NASA GRANT NSG-1357. DP. JOHN E, LAMAR. TECH- 
NICAL MONITOR, 

AN OPTIMIZATION CODE ORIGINALLY WRITTEN TO IMPLEMFNT THIS 
THEORY HAS RFEN pESrPlPFD IN A USFR«S MANUAL. OOU RESEARCH 
FOUNDATION TECHNICAL PROGRFSS REPORT DATED NOVFMRER , 1 Q79. 

GRANT NSG-1357 (FEDn DOC.) MODIFICATIONS AND ADDITIONS TO THIS 
THEORY TO ALLOW IMPLEMENTATION IN THE CURRENT DESTRN CODE 
HAVE PEEN DFSCPTRED IN A PAPER BY J. KUHLMAN PUPLISHED 


D 1 
D 2 
n 3 
D 4 
D 5 
D 6 
D 7 

n 8 

D 9 
0 10 
n 11 
0 1? 
D 13 
P 14 
n 15 
D IP 
n 17 
D Ifl 
D 19 
D ?0 
D ?1 
D ?? 
D ?3 
0 ?4 

D ?5 
D ?6 
D ?7 
n ?fl 
D ?9 
D 30 
D 31 
D 3? 
n 33 
D 34 
D 35 
D 36 
n 37 
n 3R 
n 39 
D 40 
D 41 
n 42 


(cont ’d) 
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PROGRAM CIRCUL2 (Continued) 



PROGRAM riPCUL? 74/74 OPT*l STATIC FTN 4,7*4fl5 

fll/01/27, 


C. 


IN THE AIAA JOURNAL OF AIRCRAFT* VOL 17* NO 9* SEPT* 19B0* 

D 

43 


C 


PP 64B-655, similar MATERIAL IS ALSO DESCRIREO IN 

D 

44 

45 

C 


IN ASME book number G00147* TITLEO "AERODYNAMICS OF TRANS- 

D 

45 


C 


PORTATION"* JUf^E* 1979, 

D 

46 


C 


A USERS MANUAL FOR THIS CODE HAS BEEN WRITTEN AND WILL BE AVAIL- 

D 

47 


C 


ABLE SOMETIME IN THE SPRING, 1981, 

D 

48 


C 



0 

49 

50 

C 


THF THEORY ASSUMES THE UNOISTORTEO WAKES TO BE BROKEN uP INTO 

D 

50 


c 


A NUMBER OF FLAT, FJNITF PANELS, THE WAKE VORTEX SHEET 

D 

51 


f 


strengths ARF assumed to vary in a PIECEWISE LINEAR FASHION 

D 

5? 


c 


ON EACH OF THESE WAKF PANELS, ANALYTICAl. EXPRESSIONS ARE 

D 

53 


c 


developed for THF INDUCED NORMAL VELOCITIES AT ANY POINT ON 

D 

54 

55 

c 


THE WAKE USING THE BIOT-SAVAPT LAW, THESE APE THFN USED TO 

D 

55 


c 


WRITE AN ANALYTICAL EXPRESSION FOR THE INDUCFD DRAG COEFFICIENT 

D 

56 


c 


AND THE lift * PITCHING MOMENT AND WING ROOT BFNDING MOMENT 

D 

57 


c 


COEFFICIENTS, FINALLY, ANALYTIC EXRESSIONS FOR DERIVATIVES 

0 

58 


c 


OF EACH OF THE COEFFICIENTS IN TERMS OF THF UNKNOWN WAKE 

D 

59 

60 

c 


VORTEX SHEET STRENGTHS APE USED TO OBTAIN BY A DIRECT METHOD 

D 

60 


c 


THF WAKE VORTEX SHEET STRENGTHS FOR MINIMUM INDUCED DRAG 

D 

61 


c 


SUBJECT TO LIFT AND FITHEP A PITCHING MOMFNT OP A BENDING 

0 

6? 


c 


MOMENT CONSTRAINT, THESE WAKE STRENGTHS ARF THEN INTEGRATED 

D 

63 


c 


TO OBTAIN THE OPTIMUM BOUND CIRCULATION* WHICH IS THEN 

D 

64 

65 

c 


USED IN PROGRAM 70CDFTM ( TAKEN FROM NASA TN D-R090) TO 

D 

65 


c 


COMPUTE THE OPTIMUM CAMBFP SHAPE AT THE DESIGN POINT, 

D 

66 


c 



D 

67 




JE a 0 

D 

68 




NTOTT = 0 

D 

69 

70 



DO 10 I = 1,NLLINE 

D 

70 




JE a JF + NRRK(I) 

0 

71 




NTOTT a fJTOTT ♦ NTOT(I) 

D 

7? 



10 

CONTINUE 

D 

,73 




NSV a NSSWSV(l) ♦ NSSWSV(?) 

D 

74 

75 



IF INTOTT ,LE, SOI GO TO 20 

n 

75 




WRITE (6,1400) 

D 

76 




STOP 

D 

77 



20 

CONTINUE 

0 

70 




MSCWJK a IFIX(SCWJK) 

D 

79 

80 

c 



D 

80 


c 



0 

81 




TOLC a (60T * 1S,F - 05) ** 2 

D 

ea 


r 



n 

63 


c 



0 

04 


PAGE 2 
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PROGRAM CIRCUL2 (Continued) 


65 


90 


95 


mo 


105 


no 


115 


120 


125 


PROGPAf^ riRCUL? 74/74 PPT»1 STATTT 


FTN 4.7*4«5 61/01/27, 13,:^8,34 


NMA (1) = (?) = 0 

PI = 4, * ATAN'd.) 

RAP = JRO, / PI 
ROTL = APSdSPAN) 

POL = AR5(TPPANA) 

DO 30 I = l.MPV 

K1 = (I - 1) • NRCWJK ♦ 1 

YCTRd) = 0(K1) 

30 COMTINIJF 

NTOTI = NTOTT ♦ 1 
MTOT3 = NTOTT ♦ 3 
IL = ntPTI 
DO 40 I = 1»NT0T3 
CDRAGd) = 0, 

DO 40 J = l»NTnT3 
40 A(I«J) = 0. 

SCWMlM = 20, 

Do 50 I = 1»N?5W 

50 SCWMIN s AMINl (SrwMTN,TPLRCK(I) ) 
MSCWNIN = SCWVTN 
II = 1 

NSVl = NSSVPVd) 

NSV2 = NSSHSVC?) 

00 PO I * IfIPLAN 
NSVI s NSSH5V(T> 

IC = NSVU) ♦(!-!)* MSV12) 

ID = Tr ♦ 1 

17 = N5V1 +(1-1)4 N5V? 

YCAT = YREGd.n 
DO 70 J - ItNSVI 
JJ = J ♦ n - 1) • NSVl 
II a II ♦ TPLSCW(JJ) 

IE = N5VI - J ♦ 1 
ITL = TRLSCW(I7) 

ID = in - ITL 
lA = IP ♦ ITL 

IF (lA .OT. IC) YCAT = YCAT - S(10) 
IF (lA ,GT, IC) GO TO GO 
YCAT = YCAT - 8(10) - SdA) 

GO 17 = 17 - 1 
YPdE) = YCAT 
70 CONTTWIIF 


P 85 
D 86 
D 87 

n 08 
n 09 
0 90 
D 91 

n 92 

D 93 
D 94 
D 95 
n 96 
n 97 
n 90 

n 99 
n 100 

P 101 
n 102 

D 103 
D 104 
D 105 
D lOG 
P 107 
0 lOP 
D 109 
D 110 
D 111 
0 112 
P 113 
0 114 
0 115 

0 IIG 
D 117 
0 118 
0 119 
D 120 
0 121 
n 122 

D 123 
n 124 
0 125 
n 12G 


PAGE 3 
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PROGRAM CIRCUL2 (Continued) 


PPOPPAW riRCtlL? 74/7« PPT=1 STATIC FTN 4,7 + 4P'5 Rl/01/?7, 

Dr PO J = 1«NSVI 

JJ S J ♦ (I - 1 ) * MSVl 0 12P 

YC(JJ) = YP(J) 1?9 

130 PO CONTTMUE D 130 

PC CONTINMF D 131 

NSPT(l) =1 D 132 

ICT = 0 0 133 

JST =1 n 134 

135 v)5P = 0 n 135 

INC = 0 n 136 

ISP = 0 0 

MADD = 1 P 1^8 

NTOLD =0 P 139 

140 100 CONTIWUR D 140 

ICT = TCT ♦ 1 n lAl 

IF (ICT .6T, MLTNF) go TO ?60 D 142 

NP = NPPK(ICT) D 143 

ICP s ICT ♦ 1 0 144 

145 NSPT(ICP) = NTPT(ICT) ♦ NAOD D 145 

WRITE (6,14301 ICT 0 146 

WRITE (6»1410) n 147 

1ST = INC +1 D 14P 

ISP = ISP ♦ NR D 149 

ISO DO 110 I = 1ST, ISP 0 ISO 

110 WRITE (6,1420) Y J ( I ) , 7 ( I ) ,P J ( I ) D 151 

WRITE (6,1440) NTOT(ICT) D 152 

NPP = NPRK(ICT) - 1 n 153 

JSP = JST ♦ NPP - 1 D 154 

155 DO 120 I = JST, JSP D 155 

ITEM s JST - 1 ♦ I D 156 

120 WRITE (6,1450) 1TEM,LSEG(1) D 157 

DO 130 0 = 1,NPR D 158 

I = 1ST ♦ J - 1 n 159 

160 130 PEPIF(J) * SORT((7(I ♦ 1) - 7(D) •• 2 ♦ (YJ(I ♦ 1) - YJ(D) *• 2) D 160 

DTOT =0. D 161 

DO 140 I = 1,NPP D 162 

140 DTOT = DTOT ♦ PERIE(I) D 153 

WRITE (6,1460) DTOT D 164 

165 DO 170 I = l.NPR D 165 

IF (I ,EO, NPR) GO TO 150 D 166 

DTHFTA(l) = PI / (rL04T(LSFG(NRPK(ICT) - I - 1 •* JST))) 0 167 

GO TO 160 n 168 


page 4 
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PROGRAM CIRCUL2 (Continued) 


PROGRAM CIPCUL2 74/T4 OPT=l STATIC 


FTN 4, 7*485 81/01/27. 13,38.34 PAGE 5 


150 CONTINUE D 169 

170 DTHETA(I) 5 pi / (2, * FLOAT(LSEG(NBRK(ICT) - I - 1 ♦ JST))) 0 170 

160 CONTINUE D 171 

170 CONTINUE 0 172 

CONST = 1. / PAD D 173 

NRRJ = NRRK (ICT) R 174 

175 PO 180 I » l.NRRJ D 175 

J = 1ST - 1 ♦ I 0 176 

180 PJ(J) s CONST * PJ(J) 0 177 

8H = 0,5 * PEPIF(NBR) D 178 

I s NSPT(ICT) 0 179 

180 IF {NPP ,NE, 1) GO TO 190 D 180 

SJK(l) = 0,5 • PFRIF(l) * (1, - COS {OTHETAdn ) D 181 

GO TO 200 D 182 

190 SJK(I) = 0,5 ♦ RH * (1, - COS(OTHETA(l) n D 183 

200 PJK(I) s PJdSP - 1) D 184 

185 NN s 0 + NtOLD D 185 

DO 240 I = 1,NRR D 186 

NN = NN ♦ LSFGIJSP ♦ 1 - I) D 187 

IF (I ,EO. NPP) GO TO 210 D 188 

PH = 0,5 * PFPTF(NfiPKdCT) - 1) D 189 

190 GO TO 220 n 190 

210 CONTINUE D 191 

PH = PFPTF (NPRK dCT) - I) D 192 

220 CONTINUE D 193 

LL = LSEGUSP ♦ 1 - I) D 194 

155 DO 230 J - 1«IL n 195 

IF d ,FO, 1 ,AMO, J ,EO, 1) GO TO 230 D 196 

NM = NN - LL ♦ J D 197 

PJK(MM) = PJ(NPR * 1 - I ♦ INC) D 198 

SJK(MM) s 0.50 « PH * (COS (FLOAT (J) » OTHFTA(I)) - COS(FLOAT(J - 1 D 199 

200 1) * DTHFTA(I))) D 200 

SJK(NH) = ARS(SJK(NM)) n 201 

230 CONTINUE 0 20? 

240 CONTINUE D 203 

NST = NSPT(ICT) D 204 

205 YJK(NST) = YJdSP) ♦ SJK(NST) * COS (P JK (NST ) ) D 205 

7JK(MST) = 7(TSP> ♦ SJK(NST) ♦ SIN (PJK (NST) ) D 206 

NSEG = NTOTdCT) ♦ NTOLD 0 207 

N«:T = NSPTdCT) ♦ 1 D 20Q 

DO 250 I = NST,NSFG D 209 

2in YjKd) = YJKd - 1) ♦ sjKd - 1) * cos(PJK(i - 1)) ♦ GjK(i) * cncf n 210 
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PROGRAM CIRCUL2 (Continued) 


PROGRAM CTPCUL2 74/74 OPT=l GTATIC 


FTN 4.7*405 


01/01/27. 13.30.34 


PAGE 6 


1PJK(I)1 211 

zjk(T) s 7JK(i - 1 ) ♦ sjKd - n « siNrpjKd - in ♦ «:jk(I) * stk'( n 21 ? 
ipjKdn 0 213 

250 CONTINtlE 214 

215 NTOLD = NTOTdrX) 215 

IMC = MR 'I 21* 

W/kpn = M5PT(ICP) ^ 217 

J5T = J5P ♦ 1 11 ?lfl 

GO TO 100 n 219 

220 260 CONTIMliF D 220 

WRITE (6,1470) H 2?1 

WRITE (6.14P0) (T,YJKd) ,7JK d) ,PJK(1) ,I = l.NTOTT) 0 ??? 

WRITE (6,14Q0) H 223 

RSAVE =0. ^ 224 

225 DO 270 J = 1,JF 0 225 

eCOM = 2. * APF(YJ(J)) D ??6 

PSAVF = AMAXl (PGAVF.PCOM) D 227 

270 COMTINUE' 0 ?2fl 

WRITE (6,1500) d*SjK(I),I = l.NTOTT) 0 229 

230 C T0LEPANCE5 SET HpPE ARE FOP S,INGDLARITIFS IN INTEGRALS 0 2-30 

C T(?L IS tolerance FOP ATAN INTEGRALS D 231 

C T0L2 IS TOLERANCE FOP LOG INTEGRALS D 232 

SMIN s SJK(l) D 233 

DO 200 I = l.NTOTT 0 234 

235 STEM r SJK(I) D 235 

280 SMIN = flMlNl (SMTM.STEM) D 236 

TOL = 5.E - 05 * SMIN <» N'SPT(2) D 237 

TOL2 = TOL D 238 

DO 290 T = 1.NTOT3 0 239 

240 DO 290 J = 1.NTOT3 D ?40 

T1 d,J) = 0. D 241 

T2d,J) s 0. D 24? 

T3(I,J) =0. D 243 

T4d,J) =0, D 244 

245- T5(I,J) s 0, D 245 

T6(I,J) =0, D 246 

290 continue 0 

DO 300 I = l.NTOTT D 248 

11 = 1 + 1 

250 DO 300 J = l.NTOTT D 250 

J1 = J + 1 D 251 

CALL DRACAL (I , J, YJK , 7JK ,PJK , A INT ) 0 252 
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PROGRAM CIRCUL2 (Continued) 


PP06PAM CIPCULE 7A/7A OPT=l STATIC 


FTN 4.7*A85 Hl/01/27. 13,38,3* 


TUIltJl) * AIK'T(l) D ?53 

T2ni»jn * ATNT(2) n 254 

255 T3(Il»jn * AIK'T(3| 255 

T*(I1,JU ' AINT(4) 0 256 

T5(I1,J1) » AINT(5) 0 257 

T6(I1,J1) = AIK'T(6) D 258 

3f>0 continue D 259 

260 00 *20 I s 1»NT0TT D 260 

n = I ♦ 1 D 261 

no *20 J * ItMTOTT 0 262 

J1 = J ♦ 1 D 2-6? 

A(I.J) = T3(II.jn - T4(I1,J1J - TSdltJlJ ♦ T6(I1,J1> D 264 

265 DO 310 K * 1*NLL1NE 0 265 

IC * NSPT(K) 0 266 

IF (I ,EQ. IC) 00 TO 330 0 267 

310 continue 0 268 

A<I.J) « A<I,J) ♦ T3(I1 - l.Jl) - T4(I1 - l.Jl) ♦ T5{I1 - l.Jl) - D 269 

270 1T6(I1 - l»Jl> 0 270 

DO 320 K = UNLLINE D 271 

JC s NSPT(K) D 27? 

IF (J ,EQ, JC) GO TO 350 D 273 

320 CONTINUE D 274 

275 A(I*J) « A(I*J) ♦ T3<Il - 1«J1 - 1) ♦ T4(Il - 1,J1 - 1) ♦ T5(Il - D 275 

11. J1 - 1) ♦ T6(I1 - l.Jl - 1) ^ 276 

330 CONTINUF D 277 

DO 340 K s I.KLLINF D ?7B 

JC = NSPT(K) D 279 

2P0 IF (J ,EQ. JC) GO TO 350 D ?S0 

340 CONTINUE 0 281 

A(I,J) s A<I,J) ♦ T3(II»J1 - 1) ♦ T*(I1.J1 - 1) - T5<T1.J1 - 1) - D 28? 

1T6(I1«J1 - 1) D 283 

350 CONTINUE 0 284 

285 A(I.J) = A(ItJ) ♦ 1,5 * SJK(I) * (TUll.Jl) - 72(11. Jl)> 0 285 

DO 360 K s I.NLLTNE 0 286 

JC * NSPT(K) 0 287 

IF (J ,EQ. JC) GO TO 370 0 288 

360 CONTINUE D 289 

290 Ad.J) = A(I,J) ♦ 1,5 • SJK(I) * (TUn.Jl - 1) ♦ T2(I1.J1 - U) 0 290 

370 CONTINUE 0 291 

DO 380 K = l.NLLINE D 292 

IC = NSPT(K) 0 293 

IF (I ,F0, IC) GO TO 410 D 294 
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295 


ino 


305 


310 


315 


320 


325 


330 


335 


PROGRAM CIRCUL2 (Continued) 


PPOPRAM CTPCUL? 74/74 OPT=l STATIC 


FTN 4.7*4B5 


fll/01/27, 13,38.34 PAGE 0 


380 CONTINUE D ?9S 

A(I,J) = A(I,J) ♦ .5 * SJK(I - 1) * (TKIl - l.Jl) - T?(I1 - 1»J1) D 298 

n 0 297 

DO 390 K = I.NLLINE D 298 

JC = NSPT(KJ D 299 

IF (J ,EO, JC) GO TO 400 R 300 

390 CONTINUE 0 301 

A(I,J) a A(I,J) ♦ ,5 * SJK{I - 1) * (Tldl - l.Jl - 1) ♦ T2(I1 -ID 302 

l.Jl - D) R 303 

400 continue R 304 

410 CONTINUE R 305 

A(I.J) a A(I,J) • 0.25 0 306 

420 continue D 307 

DO 560 I a I.NTOTT D 308 

n a I ♦ 1 D 309 

DO 430 K a I.NLLINE D 310 

IC a NSPT(K) D 311 

ISP a NSPT IK ♦ 1> - 1 R 312 

IF (I ,EQ. IC) GO TO 500 0 313 

430 CONTINUF R 314 

SCON a 0,5 * <SJK(I) ♦ SJK(I - 1)) 0 315 

TENP a 0. R 316 

NST a NSPT(l) 0 317 

NSTP a NSPT(2) - 1 D 318 

IF (I ,LE. NSTP) GO TO 440 R 319 

NST a NSTP + 1 R 320 

NSTP a NSPTO) - 1 0 321 

440 CONTINUF D 322 

U a NSPT(2) R 323 

DO 490 J a I.NTOTT D 324 

J1 a j ♦ 1 0 325 

at a TKII.JI - 1) ♦ T2<I1,J1 - 1) R 326 

IF (J ,FO, 1) AT a o.O 0 327 

IF (J ,EO, LL) AT = 0.0 R 3?0 

TEMP a ,5 * SJK(T - 1) * (TKII.JI) - T2(I1,J1) ♦ AT) D 329 

IF (I ,F0. NSTP) GO TO 48ft P 330 

IS a I ♦ 1 n 331 

no 470 IP = IS. NSTP 0 332 

TPl = TP ♦ 1 R 333 

AT a 0.0 R 334 

pn 4c^o K = I.NLLINE n 335 

JC a \.cpT(K) n 336 


PROGRAM CIRCUL2 (Continued) 



ppnopAM ( 

riPCUL? 74/74 OPT = 1 STMir 

FTN 4.74465 

81/01/27. 13.38.34 PAGE 




IF (J .EO. JC» RO TO 460 


n 337 



450 

continhf 


n 336 




AT = TKIPl.Jl - 1) ♦ T2(IP1»J1 - n 


D 339 

340 


460 

CONTINUE 


D 340 



470 

TFMP = TEMP ♦ <=CON * (T1(IP1,J1) - T2(IP1.J1) 

4 AT) 

D 341 



480 

CONTIMUE 


D 342 




A(I,J) = A(I,J) « TEMP 


D 343 




A(I,J) = A(T,J) / SPEF 


D 344 

345 


490 

CONTINUE 


D 345 




GO TO 550 


0 346 



500 

continue 


0 347 




SCON = .5 * SJK{I) 


D 348 




DO 540 J = l.NTOTT 


D 34R 

350 



J1 = J ♦ 1 


D 350 




TENP = 0. 


D 351 




00 530 IP = n .ISP 


D 352 




IPl = IP ♦ 1 


D 353 




AT = 0.0 


0 354 

355 



DO 510 K = I.NLLINE 


D 355 




JC = NSPT(K) 


n 356 




IF (J .EG. JC) GO TO 5?n 


n 357 



510 

continue 


D 356 




AT = TKIPl.Jl -1)4 T2(TP1»J1 - 1) 


D 359 

360 


520 

CONTINUE 


n 360 




TEMP = TEMP ♦ «:C0N * (TKIPl.Jl) - T?{IP1,J1) 

4 AT). 

D 361 



530 

CONTINUE 


D 362 




A(I.J) s A(I,J) 4 TFMP 


n 363 




A(I.J) = A(I,J) / SRFF 


D 364 

365 


540 

CONTINUE 


D 365 



550 

CONTINUE 


D 366 



560 

continue 


D 367 




DO 570 I = l.NTOTT 


D 368 




DO 570 J = l.NTOTT 


D 369 

370 


570 

TKI»J) = ?. * A(I»J) 


D 370 




DO 580 I = l.NTOTT 


D 371 




DO 580 J = l.NTOTT 


D 372 




A(I.J) = 2, • A(I,J) 4 T1 (J.I) 


n 373 



560 

CONTINUE 


D 374 

375 

c 




D 375 


c 


TKI.J) NOW HA5 A MATRIX FOP CDI CALCULATION 


n 376 


c 




0 377 




A(IL.IL) = 0.0 


n 378 


04 
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PROGRAM CIRCUL2 (Continued) 



PPOPRAf' rinrilL? 74/74 fiPT=l «;TATIr 

FTN 4,7 

♦ 485 

O1/01/P7, 



DO 610 I = UN'TOTT 



D 

379 

38n 


at = 0,0 



D 

380 



DO 5Q0 K = 1,MILTNF 



n 

381 



IC = MSPT(K) 



0 

302 



IF (I ,FO, IC) on TO 600 



n 

383 


«^q0 

CONTIMllF 



D 

3R4 

385 


AT = rns (PJK(T - 1)) » SJK(I - 1) ** 

2 


0 

385 


fton 

conttmuf 



n 

386 



A(IL*I) = (?. • COS(PJK(T>) « SJK(I) 

** ? * AT) * 4, 

/ (3. 

* SBFF) n 

387 


MO 

CONTINUE 



n 

388 



ICT = 1 



D 

389 

390 


NST = ? 



n 

390 



NSP = NSPT(?) - 1 



D 

391 


F?n 

CONTINUE 



D 

39? 



IF (ICT .CtT. NLLTNE) go TO 670 



D 

393 



SUMX = 0,0 



0 

394 

395 


L = NFPT(ICT) 



D 

395 



no 630 I = NSTiNSP 



D 

396 



SUNX s: SilMX ♦ COGIPJKd)) « SJK(I) 



0 

397 


ft30 

continue 



D 

398 



AdLtL) = A{IL»L) ♦ «4, / SREF) * 5JK(L) * GUNX 


D 

399 

400 


DO 660 I = MGT»NGP 



D 

400 



SUMX s COS(PJKn)) • SJK(T) # SJKfJ.. 

- 1) 


D 

401 



n = I ♦ 1 



0 

402 



IF (I ,EQ. NSP) GO TO 650 



n 

403 



DO 640 J = Il^NSP 



n 

404 

405 


SUMX = SUMX ♦ CnS(PJK(J)) » SJK{J) * 

(SJNd) ♦ SJK(I 

- D) 

n 

405 


f.40 

CONTINUF- 



n 

406 


f50 

continue 



D 

407 



A(IL»I) = A(IL»T) + 4, / GPEF « SUMX 



p 

408 


ffiO 

CONTINUE 



n 

409 

4)0 


IF (ICT ,EO, ?) GO TO 670 



n 

410 



NST = NSP ♦ ? 



0 

411 



NSP = MSPT(3) - 1 



0 

41? 



ICT = ICT ♦ 1 



D 

413 



60 TO 6?0 



n 

414 

415 

670 

CONTINUE 



n 

415 



DO 6P0 I = l«NTOTT 



D 

416 



A(IL»T) = 2. * A(IL.I) 



D 

417 



A(I,IL) = A(U,n 



0 

418 


6P0 

CONTINUE 



D 

419 

4Z0 


CDRAGdL) = CLDFS 



0 

4?0 


PAGF in 
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PROGRAM CIRCUL2 CContinued) 


pnOGPAf- CIRCUL2 74/7A 0PT=1 ?^TATIC 


FTN 4.7+A8B fll/01/?7. 13,38.34 PAGE 11 


C D 421 

C NOW CALCULATE PITCH AND RENDING MOMENT CONSTRAINTS 0 422 

C D 423 

JCT = IL n 424 

4?S IE <JFLA6 .FQ. 0 .OR, JELAG ,EQ, 2) GO TO 890 D 42B 

JCT » JCT ♦ 1 0 426 

C 0 427 

C PITCH CONSTRAINT D 428 

C D 429 

430 WRITE (6»1510) D 430 

DO 690 J = l.NSVl n 431. 

YINTl (J> * YCTP(J) n 432 

XTl <J) » XTE(J) D 433 

COROl(J) = CHORO(J) D 434 

435 690 continue D 435 

DO 700 J ' l.NSV? D 436 

JJ s J ♦ NSVl P 437 

YINT2(J) = YCTR(JJ) D 438 

XT2(J) a XTF(JJ) P 439 

440 CORD2(J) a CHOPP(JJ) D 440 

700 continue D 441 

NSPM = NSPT(?) - 1 P 442 

DO 780 J a IfNTOTT P 443 

IF (J .RE, NSPT(?)> GO TO 720 P 444 

445 YFJ s YJK(J) - SJK(J) * COS(PJK(J)) P 445 

CALL FTLUP {YKJ.CRL, ♦ 1 ♦NSVl . YlNTl .CORDl ) P 446 

CALL FTLUP (YKJ.XTLt ♦ 1 fNSV 1 , YINT 1 . XT 1 ) D 447 

N5M = NSVl - 1 n 448 

DY = YINTl (NSVl) - YINTl (NSM) D 449 

450 SLP a (XTl (NSVl) - XTl(NSM)) / OY P 450 

SLP2 a (CORDl (NSVl) - CORPl(NSM)) / PY 0 451 

XTP a XTl(NSVl) ♦ SLP « ARS ( Y INT 1 (NSV 1 ) ) D 45? 

CPP = rOPDl(NSVl) ♦ 5LP2 * ABS(YINT1 (NSVl) ) 0 453 

IF (J ,FO, NSPM) GO TO 710 P 454 

455 YKJ = YJK(J) ♦ SJK(J) * COS(PJK(J)) 0 455 

CALL FTLUP (YKJ.CRP. ♦ 1 ,NSV1 tYlNTl , CORDl ) 0 456 

CALL FTLUP (YKJ.XTP, ♦ 1 .NSV 1 lYlNT 1 .XT 1) P 457 

710 CONTINUE P 458 

GO TO 740 P 459 

460 720 CONTINUE 0 460 

YI<J = YJK(J) - SJK(J) * r0S(PJK(J)) P 461 

CALL FTLUP (YKJ.XTL, + 1 . NS V? ♦ YINT? ♦ XT2 ) P 462 
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PROGRAM CIRCUL2 (Continued) 


PP06PAM CIRCUL2 74/74 OPT*! STATIC 


TTN 4,7*485 81/01/27, 13,38,34 PAGE 12 


CALL-FTLUP <YKJ,CRL, ♦ 1 .NSV2.YINT2.C0RD2) D 463 

NSP = N5V2 - 1 

465 OY s YINT2(NSV2) - YTNT2tNSH) 0 ^<>5 

SLP s (XT2(NSV?) - XT2(NSMn / DY H 466 

SLP2 * {CORn?(NSV2) - CORD2(MSM)) / OY D 467 

XTP = XT2(NSV2) ♦ SLP * ABS ( Y1NT2 (NSV2) ) f> 468 

CRP = C0RD2(NSV?) ♦ SLP? * ABS < YINT2 (NSV2) ) D 469 

470 IF (J ,EQ, NTOTT) GO TO 730 D 470 

YKJ s YJK(J) ♦ SJK(J) * COS(PJK(J)) 0 471 

CALL FTLUP (YKJ, CRP* ♦ 1 ,NSV?,YINT2»C0RD2) 0 47? 

CALL FTLUP (YKJ,XTP, + 1 ,NSV2 , Y INT? ♦ XT2 ) D 473 

730 CONTINUE G A74 

475 740 CONTINUE G AT5 

XTEM = XCFW G 476 

JCK a NSPT(2) G 477 

IF (J ,GE. JCK) XTEM = XCFT G 478 

IF (XTEM ,EO, 1,) GO TO 760 D 479 

480 AXSUM = 0,0 G 480 

ASUM = 0,0 G 481 

00 750 K = 1,NSCWJK G 48? 

XCK = (K - 0,75) / SCWJK G 483 

AI a (1, - XCK) / SCWJK / (1, - XTEM) G 484 

488 XI a 1, ♦ (0,75 - K) / SCWJK G 485 

IF (XCK ,LE, XTFM) AI = 1, / SCWJK G 486 

ASUM = ASUM ♦ AI G 487 

AXSUM = AXSUM ♦ AI * XI G 488 

750 continue G 489 

490 CON a AXSUM / ASUM G 490 

GO TO 770 G 491 

760 CONTINUE G 49? 

CON a 0,5 G 493 

770 continue G 494 

495 XCP a XTP + CPP * CON G 495 

XCL a XTL + CPL * COM D 496 

CKP(J) a (XCL ♦ XCP) * 0.5 n 497 

CKM(J) = (XCP - XCL) * 0,5 G 498 

780 continue G 499 

DO 810 J = 1, NTOTT G 500 

A(JCT,J) a SJK(J) ** ? « (CKM(J) + 4, * CKP(J)) * COS(PJK(J)) / 3 G 501 

no 790 K a ),NL.L1NE G 50? 

JCK a MSPT(K) G 503 

IF (J ,EO, JCK) GO TO 800 G 504 


500 



PROGRAM CIRCUL2 (Continued) 



PPOGPAM CIPrUL? 74/74 nPT = l «;TATTr 


FTN 

4,7+485 

81/01/27 

505 

790 

CONTINUE 




0 

505 



A(JCT,vJ) = A(JCT.J) ♦ 5JK(J - 1) 

** 2 * (CKH(J - 

1) ♦ 2. * 

CKPfJ - 0 

506 



1 1) ) » COS(PJK<J - 1) ) / 3 




D 

507 


800 

CONTINUE 




D 

508 


810 

CONTINUE 




D 

BOP 

510 


STEM = 0,0 




D 

510 



DO 870 J = 1,NT0TT 




D 

511 



.DO P20 K = 1,NLLT^E 




D 

512 



JCK = NSPT(K) 




D 

513 



IF (J ,E0. JCK) GO TO 830 




D 

514 

515 

820 

CONTINUE 




D 

515 



STEM = SJK (J) ♦ SJK (J - 1 ) 




D 

516 



AtJCT,J) = A(JCT,J) * ?, * COS(PJK(J)) * 

SJK(J) • 

SJK(J - 

1) * CKP D 

517 



1 (J) 




n 

510 



GO TO 840 




D 

519 

520 

830 

CONTINUE 




D 

520 



STEM = SJK(J) 




D 

521 


840 

continue 




D 

522 



TEMP = 0.0 




D 

523 



1ST = J ♦ 1 




D 

524 

525 


ISP a NTOTT 




D 

525 



IF (J ,LE, NSPM) ISP = NSPM 




D 

526 



IE (J ,EQ, ISP) GO TO 860 




D 

527 



DO 850 I = 1ST, ISP 




0 

528 



lEMP = TEMP ♦ 2. * STEM « CKP tl ) 

• SJK (I) 

* COS(PJKd)) 

D 

529 

530 

850 

continue 




D 

530 



A(JCT,J) = AtJCT.J) ♦ TEMP 




0 

531 


860 

continue 




D 

532 


070 

CONTINUE 




D 

533 



sumatt = 0. 




D 

534 

535 


DO PRO J a IfNTOTT 




n 

535 



A(JCT,J) = 4, * A(JCT,J) / (5REF 

* CREE) 



n 

536 



A(J,JCT) = A(JCT,J) 




D 

537 



CPP(J) = A(JCT,J) 




0 

538 


880 

CONTINUE 




D 

539 

540 


CDRAG(JCT) = 0, 




D 

540 


890 

CONTINUE 




0 

541 



IF (JFLA6 .FO, 0 .OR. JFLAG .EO. 

1) 60 TO 

1020 


n 

542 



JCT - JCT ♦ 1 




D 

543 


C 





n 

544 

545 

C 

ROOT PENDING CONSTRAINT 




n 

545 


C 





n 

546 


w 

Cn 


PAGE 13 



136 


550 


555 


560 


565 


570 


575 


580 


585 


PROGRAM CIRCUL2 (Continued) 


PPOGRAV CIPCUL? 74/74 nPT=l 5TATTC 


FTN 4,7*485 


fll/01/?7. 13.38,34 


no POO T = UMTOTT 0 547 

PKK(I) = PJK(T) 0 548 

PJK(I) = 0.0 n 549 

900 CONTTNOE D 550 

C n 551 

WRITE (6,15P0) t) 552 

DO 960 J = l.PTOTT D 553 

NSTP = NTOTT D 554 

IF (J ,5E. N5PT(?)) 00 TO RIO D 555 

NSTP = NSPT<?) - 1 0 556 

910 COMTUUiF 0 5*^7 

A(JCT*J) =0, n 558 

DO 9?n K = I.NLLTNE 0 559 

JCHK = NSPTfK) 0 560 

IF (J .EO. JCHK) 00 TO 940 0 561 

920 CONTINUF 0 56? 

DL = YJKCJ) * C05(PJK(Jn ♦ 7JK(J) * SIN(PJK(J)) 0 563 

A(JCT.J) = ?, * SJK(J) * SJK(J - 1) # DL D 564 

IF (J ,E0. NSTP) GO TO 960 0 565 

JJ — J ♦ 1 D 566 

DO 930 K = JJ.NSTP 0 567 

DL = YJK(K) * C05(PJK(K)) ♦ 7JK(K) » SIN(PJK(K)) D 568 

A(JCTtJ) = A(JCT.J) ♦ ?. * SJK(K) * DL * (SJK(J) ♦ SJKfJ - 1)) D 569 

930 CONTINUE D 570 

GO TO 960 D 571 

940 continue 0 57? 

J1 = JCHK ♦ 1 0 573 

DL = YJK(Jl) * COS(PJK(JD) ♦ ZJK(Jl) * SIN(PJK{J1)) D 574 

A(JCT.J) = ?. * 5JK(J1) * DL * SJK(JCHK) 0 575 

DO 950 K = 3*NSTP D 576 

DL = YJK(K) * COS(PJK{K)) ♦ 7JK(K) • SIN(PJK(K)) D 577 

A(JCT»1) = A(JCT,1) ♦ SJK(l) * ?, * DL * 5JK(K) 0 570 

950 CONTINUE 0 57R 

960 CONTINUE D 5qo 

DO 990 J = UNTOTT D 581 

DL = YJK(J) * C05(PJK(J)) ♦ 7JK<J) • SIN(PJK(J)) 0 502 

A{JCT*J) = ACJCT.J) ♦ 5JK(J) •* 3 / 3, ♦ 4. * SJK(J) ** ? * DL / 3 0 583 

1. 0 584 

DO 970 K = I.NLLINE 0 585 

JCHK = NSPT(K) 0 586 

IF (J ,F0. JCHK) GO TO RPq 0 587 

P70 CONTINUF 0 588 


PAGE 14 
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PROGRAM CIRCUL2 (Continued) 


PPOGPAV CIPCUL? 


74/7« flPT»l static 


FTN 4,7+4R5 


01/01/27, 13,30.34 PAGF 15 


5P0 


595 


000 


005 


010 


015 


020 


025 


030 


DLM = YJK(J - 1) • COS(PJK(J - 1>) ♦ ZJK(J - 1) * SINrPJK(J - 1)) D 589 

A(JCT*J) * A(JCT,J) ♦ SJK(J - 1) ** 3 / 3, ♦ 2, • SJK(J - 1) •* ? D 5,90 

1* DLM / 3, D 591 

900 CONTINUE 0 592 

A(JCT,J) = -A<JC7*J» « 2. / (SREF * BSAVF / 2.) 0 593 

090 CONTINIlF 0 594 

DO 1000 L « 1,NT0T7 D 595 

1000 CP!(L> » A(JCT»L) D 596 

CRPM B CPBM * CLOfS * 0,5 * 0.424413 D 597 

CDRA6(JCT1 = CPRM D 590 

C D 599 

DO 1010 I * liNTOTT 0 600, 

1010 PJK<I) a PKK(I) D 001 

C n 602 

1020 CONTINUF D 603 

CALL SIMFQ (A,JCT»CDRAG,1.0FTERM*IPIV0T*53,ISCALE) D 604 

CDRAG(IL) =0, 0 605 

WRITE <6*1530) D 606 

DO 1100 I = l.NTOTT D 607 

WNORM B 0. n 600 

DO 1090 J » l.NTOTT D 609 

SS * SJK(J) D 610 

CALL CCAL n,J,YJK»7JK,PJKtSS,AA,BP,DD,FF,G0,FF,AJ,AK,RR,TT*UU*WW) 0 611 

CALL CONCAL (AA,RR,FF,G0,ss,Al,R,C,OI,F*G,CJ*CK*CLtCM,CN,CO*CP) D 012 

IF (PR ,FO, 0.) 00 TO 1030 D 613 

P = 2. * (ATAN(G / ARS(RR)) - ATAN(DI / ARS(PP))) / ARS(RR) D 614 

60 TO 1040 D 615 

1030 CONTINUE D 616 

P = 2, / (FF » 2. * SS) - 2. / {FF ♦ 2. * SS) D 617 

1040 CONTINUE D 610 

IF (UU ,EO, 0,) 60 TO 1050 D 619 

00 B 2, • (ATAN((AJ ♦ 2. ♦ SSI / ABS (UU) ) - ATAN((AJ - ?, * SS) / D 620 

lAPS(UU) ) ) / APS(UU) 0 621 

GO TO 1060 P 622 

1050 continue 0 623 

00 = 2, / (AJ - 2. • SS) - 2, / (AJ ♦ 2, * SS) D 624 

1060 continue ' D 625 

71 = (SS * SS ♦ FF * SS ♦ 66) / (SS • SS - FF # SS ♦ 66) 0 626 

22 a (SS * SS ♦ AJ * SS ♦ AK) / (SS * SS - AJ * SS ♦ AK) D 027 

AllJ s (P * A1 ♦ 0.5 * PR * AL0G(7D) / (2, * PI) D 0?0 

A3IJ B (CL • P ♦ 2, * RR * SS ♦ CO • AL0G(7l)) / (2, * SS * Pl) 0 6?9 

CALL CONCAL (OP ,FF , A J, AK ,SS » A2,R ,C ,01 *F *6,CJ,CK *CL ,CM .CN ,CO ,CP ) 0 630 
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PROGRAM CIRCUL2 (Continued) 


program riPCUL? 


74/74 OPT=l STATIC 


FTN 4, 7*485 


fll/01/?7, 13.38,34 


PAGE 16 


A?IJ = -(«Q * A? ♦ 0.5 • FE * AL06(Z2)) / (2, • PI) D 631 

A4IJ s -(CL * 00 ♦ ?. * FF • SS ♦ CO • AL06(7?>) / (?, * SS * PI) D 632 

DO 1070 K s 1»NLLINF 0 633 

KK = K ♦ 1 0 634 

635 KCHK = NSPT(KK) - 1 D 635 

IF (J ,EQ, KCHK) 60 TO 1080 0 636 

1070 continue D 637 

WNORM = WNORM ♦ ,5 * (CDRAG(J ♦ 1) ♦ CDPAG(J)) * (AlIJ ♦ A2IJ) +00 638 

1,5 * (CDRAG(J ♦ 1 ) - CORAG(Jn * (A3IJ ♦ A4IJ) D 630 

640 GO TO 1090 D 640 

1000 CONTINUE D 641 

WNORM = WNORM ♦ 0.5 » CORAG(J) » (AlIJ ♦ A2IJ - A3IJ - A4IJ) D 642 

1090 CONTINUE D 643 

C WASH AT WING IS 0,5 WASH AT MINUS INFINITY D 644 

645 WNORM a WNORM / 2. 0 645 

WOP a WNORM / COS(PJK(I)) D 646 

WRITE (6,1540) I, WNORM, WOP D 647 

1100 CONTINUE D 648 

DO 1110 I = I.NTOTT 0 649 

650 CALL GAMCAL ( I , IL tS JK , CDR AG , BGAMO) 0 650 

PGAM(I) a RGAMO 0 651 

1110 continue D 652 

RGAM(IL) = RGAM(NTOTT) ♦ CDRAG(NTOTT) * SJK(NTOTT) 0 653 

WRITE (6,1560) D 654 

655 DO 1140 I = l,IL D 655 

IF (I ,EO. IL) GO TO 1120 D 656 

eta a ?, * ( - YJK(I) ♦ SJK(I) • COS(PJK(I))) / RSAVF D 657 

GO TO 1130 D 656 

1120 continue n 659 

660 ETA a 0. n 660 

1130 CONTINUE D 661 

WRITE (6,1550) I ,BGAM ( I ) .CfiPAG { I ) ,ETA 0 662 

1140 CONTINUE 0 663 

C D 664 

665 C COMPUTF FARFTFLD CM D 665 

C D 666 

IF (JFLAG ,NF, 1) GO TO 1160 0 667 

SUMATT =0, n 668 

DO 11*^0 J = 1,NT0TT D 669 

670 SUMATT * SUMATT ♦ CPO(J) » CDRAG(J) D 670 

1150 CONTINUE 0 671 

1160 CONTINUE D 



PROGRAM CIRCUL2 (Continued) 


675 


680 


685 


690 


695 


700 


705 


710 


ppnrsnAM CTRCULS 74/74 pnT = l STATIC FTM 4.7 + 435 01/01/27, 


cn = 0. n 673 

C 0 674 

C CALCML4TF CPI 4i<:!N(; Tl, V'HICH IF PROG MATRIX 0 675 

c n 676 

no IIRO T = 1 .K'TOTT n 677 

cm = n.O n 678 

no 1170 J = ItNTOTT n 679 

CPI = rPT ♦ T1(T«J) * CPRAG(J) 0 680 

1170 CONTINUE 0 691 

CD = cn ♦ CPI » cnPAG(i) d ons 

1180 continue 0 603 

WRITE (6»1570) cn ^ 684 

IF (JFLAG ,NF. ?) GO TO 1200 D 605 

CP = 0, n 686 

DO 1190 J = 1+NTOTT n 687 

1190 CP = rn ♦ CPI(J) * CPRAG(J) n 688 

WRITE (6+1580) CR D 689 

1200 CONTINUE D 690 

c n 691 

c NOW Mum INTFPROLATE to GFT POUNn CIRCLATIONS for VLM GFOM D 69? 

c n 693 

PJKdLl = PJK(NTOTT) D 694 

JS = 0 0 695 

C WRITE (6*159) D 696 

DO 1290 I = 1»IPL*N D 697 

NTO = NTOT(I) n 698 

NTOl = NTO +1 0 699 

XTFM = XCFW D 700 

IF (I ,EQ. ?) XTEM a XCFT D 701 

ASUM a 0, , 0 "^02 

IF (XTFM ,EO, 1.) GO TO i?20 0 703 

DO 1210 K = 1*N5CWJK D 704 

XCK a (K - .75) / ''CWJK P 705 

AI a (1. - XCK) / (5CWJK « (I, - XTEM)) 0 706 

IF (XCK .LE, XTFM) AI a 1, / SCWJK 0 707 

ASUM a ASUM ♦ AT P 708 

1210 continue D ■^09 

GO TO 1230 P 710 

1??0 continue P 711 

ASUM a 1. n 712 

1230' continue P 713 

DO 1240 L * l.NTO P 714 


13.38.34 


page 17 


C/4 

ID 
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PROGRAM CIRCUL2 (Continued) 



ppORPflf/ CIPrUL2 74/74 OPT=l STATIC FTM 4.744fl5 

Bl/01/27, 13.^fl.34 

PAGE 

715 

J = L + JS 

n 715 



77H(U = YJK(J) - SJK(J) « C05(PJK(J)) 

D 71P 



XTT(U = PGAMM) / «CWJK 

n 717 



1?40 CONTINUE 

n 710 



IF (I ,FO. 1) Gn TO I?5ft 

0 719 


720 

77H(NT01) = 0, 

D 720 



XTT(NTOl) = RGAM(IL) / SCwJK 

D 721 



C WRITF (6,l6n 

n 722 



PO TO 12F0 

0 723 



1?50 CONTINUE 

0 724 


725 

Z7H(NT01) = ft, ft 

P 725 



XTT(MTni) = (PPAW(NTO) ♦ COPAPfNTO) « SJK(MTO»> / SCWJK 

D 726 



1?60 continue 

D 727 



Do 1270 K = l.NTOl 

0 72B 



C WRITF (6»163) K . 77H ( K ) » XTT ( K ) 

n 729 


73ft 

1270 continue 

0 730 



NSVI = NSSWSV(I) 

0 731 



DO 12P0 J = 1,NSVI 

D 732 



JJ = J ♦ (1 - 11 * NSSWSVni 

n 733 



JK = 1 ♦ <JJ - 1) • (IFIX(?CWJK)) 

D 734 


735 

CALL FTLUP (0 < JK) .PPU JJ» 1 ) , ♦ 1 tNTOl ,7ZH,XTT) 

D 735 



PPPIJJ) = PPl(JJ,n / A5UM 

D 736 



1?B0 continue 

D 737 



JS = NTOl - 1 

D 730 



IPPft CONTINUE 

D 739 


74ft 

JK = 0 

D 740 



C 

0 741 



C CALCULATIONS OF NORMAL WASH AND NWSH/COS (PHI ) 

n 742 



C 

D 743 



NSVTOT = NSVl ♦ NSV7 

n 744 


745 

DO 1300 I = l»NSVTOT 

0 745 



N = 1 ♦ (1 - n * NSCWJK 

D 746 



13ft0 CONTINUE 

n 747 



C WRITE(6»153) 

D 748 



DO 1340 I * ItNSVTOT 

0 749 


750 

WNORM = 0. 

n 750 



K = 1 ♦ tl - 1) • NSCWJK 

n 751 



RPHI = ATANlPHIUn 

0 752 



DO 133ft J * 1*NSVT0T 

n 753 



L s 1 ♦ (J - 1 ) * NSCWJK 

0 754 


755 

SPHl = ATANtPHKJl) 

D 755 



YY(1) = 0(K) - 0(L) 

0 756 
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PROGRAM CIRCUL2 (Continued) 


PPOC'RftM CIRCUL2 74/74 0PT=1 STATIC 


FTN 4,7*485 81/01/27, 13,38,34 PAGE 19 


YY(2) X Q(K) * Q(U 0 757 

ZZ X ZH(I> - 7H(J) D 758 

SNN » S(L) n 759 

760 00 13?n KK X 1,2 D 760 

0SI6N * 1, n 761 

FSI6N X 1, D, 76? 

IF (KK ,E0, ?) GO TO 1310 0 763 

IF (YY(1) ,LT, TOLC) FSIGN * -i, D 764 

765 IF (YY(U ,LT, ( - ToLO) OSIGN » -1, 0 765 

1310 YYY * YY(KK) D 766 

call DRAGSUB (RPHI*SPHI,YYY»ZZ»SNN,0SIGN,FSIGN,WNK) 0 767 

WN(KK) X WNK D 768 

SPHI X -SPHI n 769 

770 13?0 CONTINUE 0 770 

WNOPP X WNORM ♦ PP1(J,1) • (WN(1) - HN{2)) # SCWJK D 771 

1330 continue D 772 

WNORM X WNORM / (?, * PI) / ?. D 773 

WOP X WNORM / (COS(RPHI)) D 774 

775 C WRITE (6,154) I,WNORM,WOP D 775 

1340 CONTINUE D 776 

DO 1360 I X ItIPLAN D 777 

KA X 1 ♦ (I - 1) * NSSWSV(l) 0 778 

KR X NSSWSV(l) ♦ (I - 1) * NSSWSV(2) 0 779 

780 0 X XCFW D 780 

IF (I ,EO, 2) D X XCFT D 781 

DO 1350 J X KA,KB 0 782 

NSCW X TflLSCW(J) n 783 

AI X NSCW • 0 ♦ 0,75 0 784 

785 IMAX X 'INT(AI) 0 785 

DO 1350 K X i.NSCW 0 786 

JK X JK * 1 0 787 

E. X 1, 0 7ftfl 

IF (K ,6T, IMAX) E X (1. - (K - ,75) / NSCW) / (1, - 0) D 789 

790 CIR(JK) X PPP(J) # E n 790 

1350 continue 0 791 

1360 CONTINUE D 79? 

WRITE (6,1630) CLDES D 793 

NR X 0 0 794 

795 DO 1370 NV x 1,NSSW 0 795 

NSCW X TBLSCW(NV) D 796 

NP X NR ♦ 1 D 797 

NR X NR ♦ NSCW n 79fi 
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PROGRAM CIRCUL2 (Continued) 


PROGRAM CTRCUL? 74/74 OPT=l STATIC 


FTN 4, 7*485 


fll/01/?7. 13,38.34 


PAGE 20 


eoo 


005 


810 


915 


820 


025 


030 


035 


840 


PHIPR s ATAN(PHHNV)) * RAO D 799 

IF (NV ,EQ. (NSSUSV(l) ♦ in WRITE (6.1640) 0 800 

DO 1370 I s NP.NR 0 801 

PNPR * PN(I) * BETA D BOP 

PVPR = PV(I) * BETA D 803 

PSIPR = ATAN(PFTA * TAN(PS1(I))) * RAO 0 804 

WRITE (6.1650) PNPP.PVPR.Q ( I ) .7H (NV) .S ( I ) .PSIPP.PHTPR.CIR ( I ) D805 

1370 CONTINUE 0 806 

WRITE (6.1610) D 807 

WRITE (6.1620) CREF.CAVE.STRUE.SREF.ROT.AR.APTRUE.MACH D 808 

WRITE (6.1590) XCFW 0 809 

WRITE (6.1600) XCFT 0 610 

CLTOT = CHTOT » 0. 0 811 

DO 1390 I a l.NSSW 0 81? 

IF (I ,EO, 1) WRITE (6.1670) D 813 

IF (I ,EQ, (NSSWSV(l) ♦ 1)) WRITE (6.1680) D 814 

SPANLO * 0, D 815 

DO 1380 IJ * I.NSCWMIN D 8r6 

IK s (I - 1) * NSCWMIN ♦ IJ 0 817 

SPANLO = SPANLO ♦ P, * CIR(IK) * COS (ATAN (PHI ( I) ) ) 0 818 

CLTOT a CLTOT ♦ 8, * S(IK) * CIR(IK) / SREF * COS ( ATAN (PHI ( I ) ) ) 0 819 

CMTOT s CMTOT ♦ 8. * S(IK) * CIR(IK) * PN(TK) * BFTA * COS(ATAN(PH D 820 

II(I))) / (SREF * CRFF) 0 8?l 

1380 continue D 82? 

WRITE (6*1700) 0(IK>, SPANLO 0 823 

IF (I .EG. NSSWSV(D) CLl = CLTOT D 824 

IF (I .EQ, NSSWSV(D) CM) = CNTOT 0 8?5 

IF (T ,EO, NSSWSV(D) WRITE (6,1690) CLl.CMl 0 826 

IF (F .ro. NSSW .AND. IPLAN ,EQ, 2) CLP = CLTOT - CLl 0 8?7 

IF (l .EO. NSSli' .AND, IPLAN .FQ, 2) CM2 = CMTOT - CMl 0 8?8 

IF (I..FQ, NSSW .AND, IPLAN .EG, 2) WRITE (6.1690) CL2.CM2 D 829 

1390 CONTINUE 0 830 

C n 831 

IF (JFLAG .FO. 1.) CMTOT = SUMATT 0 832 

WRITE (6.1660) CLOFS. CLTOT. CMTOT. CO 0 833 

C D 834 

C 162 FOPMAT(35X,46HOATA USEO TO INTERPOLATE BACK TO VLMC GEOMETRY/? 0 835 

C 5X. 1HY.10X.5HGAMMA/) 0836 

C 0 837 

1400 format (//25X.39HT0TAL NO WAKE SEGMENTS AROVF MAX OF 50/) O 838 

1410 FORMAT (///35X.13HWAKE GFOMFTRY///32X . IHY, 1 2X . 1 H? . 1 OX ♦ 3HPHJ //) D 839 

1420 FORMAT (28X.3F11.5) 0 840 
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PROGRAM CIRCUL2 (Concluded) 


pFnr,p/>r CTPruLE 7*/74 nPT=l static 


FTN *,7**85 


ai/ftI/?7. 13.38.3A 


PAGE 21 


1430 FOPHAT OSX^flHPLANFOBH.TA) 0 841 

1440 FOPMAT. (//2SX.33H NO OF WAKF VORTICITY SFfiMFNTS * *1?/) D 842 

1450 format (?'5X.3PHWAKF VOPTICTTV PEGS ON WINR SFOMFNy NO, TS. 1H», 15/1 0 843 

U60 FORKAT (30X, 13HTOTAI, PLANFOPF PEPIPHFPAL |.FNGTHsiF15,ei/| P 644 

845 1470 FOPHAT «/?0X *PHSFGHT NOt lOX * IHY i ISX t 1H7* 15X . 3HPHI/) 0 845 

1480 FOPHAT (25X,TFt3Fl5.8) D 646 

1490 FORMAT </?5x,1HI,5X,6H5NN(I»/) 0 847 

1500 FORMAT (25X,I5.F1?.5» 0 840 

1510 FORMAT t/25x ,?3HP!TCH CONSTRAINT ACTIVE/) 0 849 

850 1520 FORMAT (/25X ,32HPENniNG MOmFM CONSTRAINT ACTIVE) 0 050 

1530 FORMAT (//33X.IHI«TX«8HnOWNHASH«7X,10HW/COS(PHT)/> D 851 

1540 format 130X,1«,?F15.S) 0 §52 

1550 FOPHAT (20X • J5,4F 1 3.S) 0 053 

1560 format C//?1X*5HSF0mt,3X,10HP0UNP CIRC*2X , 1 OHSMFO STRTH*7x .3HETA// 0 654 

855 1) D 055 

1570 format (///?5x*A3HCn CALCuLATFO USING DIPEC7 OPTIMT7ATION LINEAR 5 0 856 

IHSHFET niST « ,F15,8/) D 857 

1580 FORMAT (//?5X»66HC8 CALAULATFD USING DIRECT OPTIMT7 ATION LINFAR’sH D 850 
1 EO SHEET DIST » «E15.5/1 D 059 

860 1590 format (///70X.SHA1 s ,Fl0.5/l 0 660 

1600 FOPHAT (//7nx«5HA? a »F10.S/) 0 861 

1610 FORMAT (////4X,I1H RFF, CHORD »6X t ?SHC AVERAGE TRUE AREA ,2X*I 0 862 

14HREFFRENCE APFA,9X,3HP/?,ax.7HPEF. AR,8X,7 HTpuF AP,4x, 11HMACH NUM 0 663 
?PFP/» n 664 

865 1620 FORMAT (8F1S.5) 0 865 

1630 format (lHl*///?5XtlHX11X,lHXf !lX«IHYtnx«lHZ«l?X«lHS,5X*9HC/4 SWF 0 866 
1EP«4X,8HOIHFORAL«3X,|OHGAMmA/U AT/24Xt3HC/4«°X.4H3C/4,4?X«5HANG| F« 0 867 
?7X,5HANGLEt4Xt6HCL0FSa,F7.4/) 0 868 

1640 format l/45X*4SHSFCONn PLAnFOPM HORSESHOE VOPTFX OFSCRIPTIONS/) 0 869 

870 1650 format (17X,8F1?.51 0070 

1660 FORMAT (/////!SX,1 IHCL OFSIGN a ,F 1 0 .6 »5X « I 2HCL COMPUTFO»tFl 0.6*5X , D 871 
112HCM COMPUTEna,F10,3*5X.5HCP V=*FI0.6) 0 872 

1670 FORMAT I ////40X .56HF IRST PLANFORM SPAN LO 0 873 
lA D I N G//60X.lHY«llX*4HrL«Cl 0 874 

875 1600 FORMAT ( ////40X ♦SPHS ECONO PLANFORM, SPAN I 0 875 

10 A 0 I N 6//60XtlHY«nXf4HCL*C) ' 0 876 

1690 format 1//50X,30HCL OFVFLOPEO ON THIS PLANFORMa,F10.6/50X«30HCM OE D 87T 
IVELOPEO ON THIS PLANFORMa.F 10 ,61 0 070 

1700 FORMAT |55XF10.5,3XF10,5) D 079 

880 END n 000- 



-fl* 


SUBROUTINE GAMCAL 


SUBPf^UTINF 

1 

1 0 
15 
?0 
?5 


GfiMCAL 74/7A nPT=l STATir 


FTN 4,7+*fl5 


Rl/ni/27. 13,?n,3* 


PflRF 1 


SUPROUTlNE RAPCAt, ( 1 , IL » 5MN » AOPT t RRAP 0 ) 

CALCULATE POUND CIPCULATION AT LEFT END PT OF FERMENT I*PRAM 
AOPT LAST COLUMN CONTAINS ARRAY OF OPTIMIZED SHED SHFFT STRENGTHS 

COMMON /FEN/ NSPT(4) ,NLl INF 
dimension SNNH)* AOPT(l) 

PGAMO = 0, 

DO 10 K = 1,NLLINF 
KK = NLLINE - K ♦ 1 
KCHK = NSPTIKKI 
IF (I ,FQ. KCHK) GO TO AO 
IF (I ,RT. KCHK) GO TO ?0 
10 continue 
? n continue 

BRAMO = AOPT(KCHK) • SNN(KCHK) ♦ AOPT(I) * SNN ( I - 1) 

KCHKl s KCHK ♦ 1 

IF (I ,E0. KCHKl) RO TO 50 

IM = I - 1 

IP = KCHK ♦ 1 

DO 30 J = IP»TM 

BRAMO = BGAMO ♦ AOPT ( J) * (SNNfJ - 1) ♦ SNN(J)) 

30 CONTINUE 
GO TO GO 
AO PGAMO =0, 

50 continue 
RETURN 
END 


F 1 
F 2 
E 3 
F A 
E 5 
E 6 
E 7 
F 8 
F 9 
F 10 
F 11 
F 12 
E 13 
F 14 
F 15 
F 16 
E 17 
F 18 
F 19 
E ?0 
F 21 
F 22 
F 23 
F 24 
F 25 
F 26 
F 27 
F ?R- 
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SUBROUTINE DRAGSUB 


SUPPOUTINF PRAGSUP 


74/74 nPT=l STATIC 


FTN 4,7*4R5 P1/01/P7, 13,3R,34 


1 SUPPOdTlNE nPAG«;ilP {R*A.Y,7.S. IS»JS*WNK> 

REAL IS,JS 
2P = 7 4. S • <;TM(A) 

YP = Y ♦ s • CO«;(A) 

5 7K = 7 - 5IN«A> * S 

YM = Y - S * rOS<A) 

PL = *;OPT(7P *» ? + YP *• ?) 

RP = SOPT(7M • YM *« ?) 

ZPOYP = ZP / YP 
10 ZHOYM s 7V / YW 

PHILTLJ = ATAN(ZPOYP) 

PHTPTLJ » ATAN(7M0YM) 

PLMPI = PHILTLJ - P 
PPMPI = PHIRTLJ - P 
15 CO«;PLt s COSlPLHPll 

COSPRI = COS(PRMPI) 

HHK = is * COSPLI / PL “ JS ♦ COSPRI / PR 

RETURN 

END 


F 1 
F 2 
F 3 
F 4 
F 5 
F ft 
F 7 
F R 
F 9 
F 10 
F 11 
F 12 
F 13 
F 14 
F 15 
F 16 
F 17 
F 18 
F 19- 


PARE 1 
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SUBROUTINE DRACAL 


SUPPOUTINF nPACAL 7A/74 OPT»l STATIC 


FTN 4,7*485 


Bl/01/?7. 13,:^8,34 


PAGE t 


1 


10 


15 


20 


25 


30 


35 


40 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE ORACAL ( I ♦ Jt YHH ,7HH»PPP ♦ A INT ) 

SUBROUTINE ORACAL 

TREFFTZ plane DRAG ANALYSIS ASSUMES PIECEWISE LINEARLY VARYING 
SHED VORTICITY SHEET STRENGTH 

CALCULATE iNTf^GRALS A THROUGH F FOR DRAG COEF CALCULATION 
CALLS subroutines LOGS.SNTANfCCALtCONCAL 
DIMENSION AINT(6J 

DIMENSION YHH(1), 7HH ( 1 ) , PPP(l) 

COMMON /SEG/ SNN(5ni 
PI = 4. • ATANH.) 

S = SNN(J) 

CALL CCAL II,J.YHHf7HH,PPP,S,AA»PB,DD*FF,GG»EFfAJ,AK,RP,TTfUU»WW) 
CALL CONCAL (AA,BBtFF,GG,S,A,B,C,D,F,GtCJ,CK,Cl *CM*CN,CO*CP,ll 
S = SNN(I) 

CALL LOGS (S,CJ,F*RFLN*RFSLN.RES2LN*RES3LN> 

CALL SNTAN (S,C,flB,RP,TT,RTAN,RSTftN,PS2TAN,RS3TAN,PS4TAN) 

AAAAAA = A * PTAN ♦ B » PSTAN ♦ BB * RELN / 4 

RPPBRB = 2, # (CL * PTAN ♦ CM ♦ RSTAN ♦ CN * PS2TAN) ♦ CO * RELN + 

1 CP • PESLN 

CCCCCr = A « PSTAN ♦ R « RS2TAN + PB * RESLN / 4 

DOODOn s 2, * (CL * PSTAN ♦ CM * RS2TAN ♦ CM * RS3TAN) ♦ CO * RFSL 
IN ♦ CP » PES2LN 

EEFEEF = A » RSPTAN ♦ R * PS3TAN ♦ BB. * RFS2LN / 4 

FFFFFF = 2, * (CL * PSPTAN ♦ CM * RS3TAN ♦ CN * PS4TAN) ♦ CO * PFS 
12LN ♦ CP * RES3LN 

CALL LOGS (S,CK,G,RFLN«PFSLN«PES2LNtPFS3LN) 

CALL SNTAN (S »P » PB ,RP , TT » PTAN « PSTAN ,RS2TAN ,PS3TAN ,PS4TAN ) 

AAAAAA = AAAAAA - A * PTAN - B * PSTAN - BB * PELN / 4 

BPPPflP a BBRRPP - ?, # (CL * PTAN + CM * PSTAN ♦ CN • PS2TAN) - CO 

1 * PFLN -'CP • RFSLN 

CCCCCC = CCCCCr - a * PSTAN - B * PS2TAN - BR * RESLN / 4 

DDDDDO = DDnnnn - 2 , * (CL • RSTAN ♦ cm * PSPTAN ♦ CN • PSTTAN) - 

ICO * RFSLN - CP * PFS?LN 

FFFFFF = EEFEFF - A * RSPTAN - P * PS3TAN - PP * PFSPLM / 4 
FFFFFF = FFFFFF - ?, * (CL « PS2TAN ♦ CM » PS3TAN ♦ CM * RS4TAN) - 
1 CO « pFSPLM - CP * PFS.3LM 
S = SMN(J) 


6 1 
6 2 
6 3 

G 4 

6 5 

6 6 
G 7 
G 8 
6 9 

G 10 
6 11 
0 12 
6 13 

6 14 

G 15 
G 16 
6 17 

G 18 
G 19 
G 20 
G 21 
G 22 
6 ?3 

G 24 
G 25 
G 26 
G 27 
G 20 
G 29 
6 30 

G 31 
G 32 
G 33 
G 34 
G 35 
G 36 
G 37 
G 38 
G 39 
G 40 
G 41 
G 42 


(cont ’ d) 
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SUBROUTINE DRACAL (Concluded) 


SUPPOUTINE npACAL 74/74 OPT=l STATIC 


FTN 4.7*485 


81/01/?7, 13.38.34 



CALL CONCAL (OP. EE 

*A\J*AKfSfAtBfCfD*F*GfCJjCK* CL *CM.CN.CO*CP.2) 


6 

43 


S s SNN(I) 



G 

44 

45 

CALL LOGS (S*CJ.F» 

RFLN, RFSLN »RFS2LN,RES3LN) 


G 

45 


CALL SNTAN (StC.FE 

«UU,MW,RTAN,RSTAN,RS2TAN,RS3TAN,RS4TAN). 


G 

46 


AAAAAA * AAAAAA - 

A # RTAN - B * RSTAN - EE * RELN / 4 


6 

47 


eePRBR * bprbpp - 

2. ♦ (CL • RTAN ♦ CM # RSTAN ♦ CN * RS2TAN) - 

CO 

G 

48 


1 * PEL N - CP * RESLN 


G 

49 

50 

CCCCCC s CCCCCC - 

A * RSTAN - B * RS2TAN - EE * RESLN / 4 


6 

50 


DOODPO = DDnnpp - 

2. * (CL • RSTAN ♦ CM * RSPTAN ♦ CN ♦ RS3TAN) 

- 

G 

51 


ICO * RFSLN - CP * 

RES2LN 


6 

52 


EEEEEF * EEEFFF - 

A 4 RSPTAN - B 4 RS3TAN - EE * PES2LN / 4 


G 

53 


FFFFFF » FFFFFF - 

2. • (CL * RS2TAN ♦ CM 4 RS3TAN ♦ CN * RS4TAN) 

- 

G 

54 

55 

1 CO * PES2LN - CP 

• RES3LN 


G 

55 


CALL LOGS (S,CK,6* 

RELN, RESLN, RES2LN, RE S3LN) 


G 

56 


CALL SNTAN <S,D*FE 

,Ul), WW,PTAN, RSTAN, PS2TAN,PS3TAN,PS4TAN) 


6 

57 


AAAAAA = AAAAAA * 

A * RTAN * B * RSTAN ♦ EF * RFLN / 4 


G 

58 


PBPBRR * BBRPPP * 

2, * (CL * RTAN ♦ CM 4 RSTAN ♦ CN 4 PS2TAN) ♦ 

CO 

6 

59 

60 

1 * RFLN ♦ CP « RESLN 


G 

60 


CCCCCC » CCCCCC ♦ 

A « RSTAN ♦ B 4 RSPTAN ♦ FF 4 RFSLN / 4 


G 

61 


ononnn = ododod ♦ 

2. * (CL * RSTAN ♦ CM 4 RSPTAN ♦ CN * RS3TAN) 

* 

G 

62 


ICO * RFSLN ♦ CP * 

RES2LN 


G 

63 


EFEEEE * EEFEFF ♦ 

A 4 PSPTAN ♦ B 4 RS3TAN ♦ EF • PFS2LN / 4 


G 

64 

65 

FFFFFF = FFFFFF ♦ 

2. * (CL * PS2TAN ♦ CM 4 RS3TAN ♦ CN * RS4TANJ 

♦ 

G 

65 


1 CO 4 PFS2LN ♦ CP 

* PES3LN 


G 

66 


SK ^ SNN(J) 



G 

67 


AAAAAA s AAAAAA / 

PT 


G 

68 


BBP.PPP = BBRRPP / 

(2. * PI * SK) ♦ (2. 4 S / PT) * (PP - FF) 


G 

69 

70 

CCCCCC = CCCCCC / 

PI 


G 

70 


DDODDO = DDPnpo / 

(2. •PI 4 SK) 


G 

71 


FEFEEF = EEFFFE / 

(? • PI • S) 


G 

72 


FFFFFF = FFFFFF / 

(4. * PI 4 S 4 SK) ♦ (BB - FF) 4 S 4 S / (3 * 

PI 

G 

73 


1) 



G 

74 

75 

AlNT(l) s AAAAAA 



G 

75 


AINT(?) = BPPPRP 



G 

76 


A1NT(3) = CCCCCC 



G 

77 


AiNT(4) s oonnnn 



G 

78 


AINT(5» = EFFFFF 



G 

79 

80 

A1NT(6) = FFFFFF 



G 

80 


RFTIIPN 



G 

81 


END 



R 

82- 
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SUBROUTINE GCAL 


SUPPOllTiMf rCAL lit/7^ PPT = 1 PTATTC 


FTW 4.7+4PB 


fl!/01/H7. n. 30,34 


P«GF 1 


1 


5 


10 


15 


20 


25 


30 


C 

C 

C 

C 

C 

C 


SUPPOUTINE CCAL { I » J, YHH . /HH tPPP ,S . Afl , RP ,nn, FF ,GR,FF ♦ Jil*KK ,RP* TT ,U 
1U»WW) 

PLiPPOdTlNE rCAL 

CALCULATE? PFOPFTRICAL CONSTANT? NFFOFn IN EVALUATION OF INTFGPALS 
FOR VAPYINO I ANO J VALUE? 

REAL JJ*KK 

niMEN?T0N YHHrn* PPP(l) 

OYIJ = YHH(I) - YHH(J) 

07IJ s ZHHd) - 

coi = ro?(Ppp(in 

SII = ?IN(PPP (I) ) 

COJ = CO?(PPP(J) ) 

SIJ = SIN{PPP(J> ) 

AA = nvIJ * COT 4 P7IJ « ?TI 
BP = -COS(PPP(JJ - PPP(D) 

FF = -? * (OYIJ * COJ 4 07IJ * SIJ) 

GG s OYIJ » nvTJ 4 07IJ * OZIJ 

OYIJP = YHH(I) 4 YHH(J) 

07IJP = I^ZIJ 

DO = nviJP * COT 4 r> 7 ijp sii 
EE s COS(PPP(J) 4 PPP(I) ) 

JJ = 2. * (DYIJP * COJ - D7IJP « SIJ) 

KK = OYIJP * OYIJP 4 nZIJP * DZIJP 
RR = 2 • (DYU * SIJ - 07IJ * COJ) 

TT = 2 * SIN(PPP(J) - PPP(D) 

UU = 2, * (OYIJP * ?IJ 4 071JP * COJ) 

WW - 2, • SIN«PPP(J) 4 PPP(D) 

RETURN 

END 


H 1 
H 2 
H 3 

H 4 

H 5 
H f> 

H 7 
H R 
H 9 
H 10 
H 11 
H 12 
H 13 
H 14 
H 15 
H 16 
H 17 
H in 

H IP 
H 20 
H 21 
H 2? 

H 23 
H 24 
H 25 
H 26 
H 27 
H 28 
H 29 
H 30 
H 31 
H 32- 
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SUBROUTINE CONCAL 


SUPPODTIMF CONCAL 74/74 0PT=1 »^TATIC 


FTN ♦,7*Aft?i 


P1/01/P7. 13,‘^P,34 


PACF 1 


1 


5 


10 


15 


20 


C 

C 

c 

c 

c 


SURPOUTINE CONCAL <Afl,RP,FF.GO«S*A,R,C,n,F,0,J*K,L«M«N.O,P) 
SUPROUTINF. CONCAL 

CALCtJLATFS GFONFTRICAL CONSTANTS NFFPFD IN FVALUATTON OF INTFGPALS 

PFAL J»K«L»N.N 
A s AA <• 0,*^ • RR * FF 
P = 1, - P0 * PR 

C = FF ♦ 2, « S 

P = FF - 2, * S 

F=S*S*S«FF*RG 
G=S*S-S*FF*G6 
J = 2, * (AA ♦ 5 * PR) 

K = 2. • {AA - R * RR) 

L = 0,5 * {PR * FF * FF - AA * FF - 2, « RR ♦ PG) 

H = 0.5 * { - FF - 6. * AA * BR ♦ 4. * FF # PP * RR) 

N = 2, • (BP * RR - 1 ,) • RP 
0 = 0,5 * (AA - FF * RR) 

P = 0,5 * (1. - 2. • PB * BP) 

RFTUPN 

FNO 


I I 
I 2 
I 3 
T 4 
I 5 
I f> 

I 7 
I A 
I 9 
I 10 
I n 

I 12 
T 13 
I 14 
I 15 
I 16 
I 17 
I 18 
I 19 
I 30 
I 31 
I 23- 
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SUBROUTINE SNTAN 


SUPPOUTINF RNTAN 74/74 0PT=l STATIC 


FTN 4, 7*485 


81/01/27. 13,38,34 


1 




10 


15 


?n 


?5 


30 


35 


40 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 


c 

c 

c 


SUBROUTINE SNTAN <S,C,BR,RR,TT,RTAN,RSTAN,RS?TAN,PS3TANtRS4TAN) 
SUBROUTINE SNTAN 

EVALUATES INTEGRALS OF THE FORM S«*N»ATAN ( (C*?#BB*S) / (RR*S*TTM 
ALL DIVIOED BY (RR*5*TT) 

WITH RESPECT TO S BETWEEN LIMITS OF -S AND S FOR N«0, 1,2*3, 

ATAN PART OF INTEGRAND APPROXIMATED AS A miAORATlC IN S WHICH IS 
FORCED THROUGH ATAN VALUES AT -S,0,ANO S, 

A,C ARE CALCULATED IN SUBROUTINE CONCAL 
PP,RP,TT ARE calculated IN SUBROUTINE CCAL 

RESULTS ARE RTAN,RSTAN,PS?TAN,RS3TAN 

approximate integral evaluated using MACSVMA program OF MIT PROJ, 

Evaluation of integrals for tt=o, begind at at label in 
SINGULAR integrals EVALUATED AT APPROXIMATE FNDPOTNTS , ♦-SAWAY 
MIDRANGE SINGULARITIES EXCLUDED , ATAN PART OF INT APPROX- 
IMATED AS 2 OUADRATICS 

COMMON /TEL/ T0L,T0L2 

DIMENSION AA1(3,3), AA(3), IPIV0T(3) 

RPR s PR 
SSS = S 
CCC = c 
RTAN = 0.0 
RSTAN H 0.0 
RS2TAN = 0,0 
PS3TAN = 0,0 
RS4TAN » 0.0 

IF (TT ,FQ. 0,0 .AND, APS(RP) ,LT, IE - 08) 60 TO 70 
IF (TT .EG. 0,0 ,AN0. PR ,FG, 0,0) GO TO 70 
IF (TT ,EQ, 0,0) GO TO 40 

FIRST, CHECK FOP MIORANGF SINGULARITIES, EXCLUDING ANY FOUNO 
S7FRG = -RR / TT 

IF (ABS (ABS (S7FRO) - S) .LT. IE - 04 ,AND. ARS(S7FPO) ,LE, S) GO T 
10 30 

IF (S7EPO ,GF. 0,0 .AND, S7EPO ,LT, S) GO TO )fiO 
IF (S7FPO ,LT, 0.0 .AND, S7ER0 ,GT, -S) GO TO 160 


J 1 
J 2 
J 3 
J 4 
J 5 
J 6 
J 7 
J 8 
J 9 
J 10 

J n 
J 12 
J 13 
J 14 
J 15 
J 16 
J* 17 
J 18 
J 19 
J 20 
J 21 
J 2a 
J 23 
J 24 
J 25 
J 26 
J 27 
J 20 
J 29 
J 30 
J 31 
J 32 
J 33 
J 34 
J 35 
J 36 
J 37 
J 38 
J 39 
J 40 
J 41 
J 42 


PAGE 1 


(Cont ' d) 
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SUBROUTINE SNTAN (Continued) 


«;UPPnuTlNP 


45 


50 


5S 


60 


65 


70 


75 


80 


74/74 rPT = l ciTATir FTN 4.7 + 485 81/01/27. 13,38.34 

10 COK'TINDF J 43 

C = ATAN2 (CCr ,ARS (PP) ) J 44 

Cl s ,5 « (flTA^ 2 f(CCC ♦ • PP • S),APS(RP + TT • S)) ♦ ATAN2((CC J 45 

1C - ?. * PP * Pl.APSfRP - TT * S))) - C J 46 

Cl = n / (5 « C) ^ J 47 

C 2 a (ATAN2((CCC ♦ ?. « PR « S}*APS(RR ♦ TT * PH) / 5- r/ S- C J 40 

11 * S J 49 

J 50 

IMTFRPANn NOW TR (Cl*S*5 + C?«5*C) «<;*«N/ (RP*TT*Rn J 51 

J 52 

CLORP = ALOR(AP5((PP ♦ TT » S) / (PR - TT * S)) ) J 53 

CONO a <C * TT * TT - C? * RP * TT ♦ Cl * RR * RR) / (TT *• 3) J 54 

CONI = (C? * TT - C] ♦ PP) / (TT * TT) J 55 

PT4N = CONO * CLORP ♦ 2, * S * CONI J 56 

CON? = (C • TT * TT - C? * PR * TT ♦ Cl * PP * PR) / (TT ** 3> J 57 

CON? s (C • PP * TT » TT - C? * RR • RR * TT ♦ Cl • PP *• 3) / (TT J 5« 

1 ** 4) J 59 

RSTAN =?,«?* CON? - CON3 * CLOPR ♦ ?. • Cl * TT * TT • 5 •* 3 J 60 

1/ (3 4 TT 4* 3) J 61 

C0N4 = (C * PP * RR « TT * TT - C2 * PR 4* 3 * TT ♦ Cl * PR ** 4) J 62 

1/ (TT 44 5) J 63 

CONS s 4, * C? 4 TT 44 3 _ 4. 4 Cl 4 PP » tT 44 2 J 64 

CONS = CONS / ( 1 ? 4 tT *4 4) J 65 

C0N6 e ( - C * PR 4 tT * TT ♦ C? * PR 4 RP 4 TT - Cl 4 RR 44 3) / j 66 

1 (TT 4# 4) J 67 

R52TAN * COM4 • CLOPR ♦ ?. 4 CONS 4«;4#3*?, ♦«;* rON 6 J 68 

CON 8 = 20, 4 (C 4 TT 44 4 - C2 4 Rp • TT 4* 3 ♦ Cl 4 Rp 4* 2 4 tt J 69 

1*4 ?) / (60 4 TT 44 =i) J 70 

CON9 s (C * RR 44 2 4 TT 44 2 - C2 * RR 44 3 4 TT ♦ Cl 4 rr 44 j 72 

1/ (TT *4 5) J 72 

CONIO s C 4 PP «4 3 4 TT 44 2 - C2 4 flp 44 4 4 TT ♦ Cl * RR 44 q J 73 

CONIO = CONIO / (TT 44 6) J 74 

RS3TAN = 2. 4 CON8 • S ** 3 ♦ 2. * CONP 4 q - CONIO 4 CLORP ♦ 24, J 75 

14 Cl 4 TT 44 4 4 q 44 5 / (60 4 TT 44 5) J 76 

CONA = (C 4 PR 44 4 4 TT 44 2 - c? 4 PR 44 5 4 TT * Cl 4 PR 44 6 ) J 77 

1/ (TT 44 7) J 78 

CONR = (C2 4 tt - Cl 4 RP) / (5 * TT 44 2 ) j 79 

CONC = ( - C 4 PP 4 tT *4 2 ♦ C2 4 RR 44 p 4 tt - C! * RR ♦♦ 3) / J 80 

1 (3 4 tt 44 4) J 81 

CONO = COMC 4 PP 44 p / (tT 44 2 / 3) J 82 

PS4TAN = COMA 4 CLORP ♦ COMP 4 ? 4 q 44 5 ♦ CONC 4 p 4 S 44 3 ♦ CO J 03 

IND 4 p 4 q J 84 


PARE 2 
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SUBROUTINE SNTAN (Continued] 


SUPPrUTIN’F 

CNTAN 74/74 OPT=l STATIC 



FTN 4.74485 


Rl/01/27, 

85 


IF (RR ,6T, 0.) GO TO 20 






J 

85 



RTAN = -RTAN 






J 

6G 



RSTAN = -PSTAN 






J 

87 



RS2TAN = -RS2TAN 






J 

88 



RS3TAM « -PS3TAN 






J 

89 

90 


RS4TAN = -RS4TAN 






J 

90 



20 Continue 






J 

91 



GO TO 130 






J 

92 



30 CONTINUE 






J 

93 



SAWAV = S - TOL 






J 

94 

95 


S = 5AWAY 






J 

95 



GO TO 10 






J 

96 


C 







J 

97 


C 

FOR CASE OF RR NOT 7ERO*TT=0,0 






J 

98 


C 







J 

99 

100 


40 continue 






J 

100 



pp = ARS(RR) 






J 

101 



ALNNUM = (? * PR) ** 2 * «; ** 2 

♦ 4 

« 

C * BP * S 4 PR •* 

2 4 

C ** 

J 

102 



12 






J 

103 



ALNPEN = (2 * PR) »* 2 * S •* 2 

- 4 

« 

C • RP * S 4 RP #* 

2 4 

c ** 

J 

104 

105 


12 






J 

105 



IF (ALNNUM ,FO, 0,0 .OR. ALNOEN 

,EO. 


0,0) GO TO 60 



J 

106 



GO TO 60 






J 

107 



SO CONTIN'IJE 






J 

me 



S = S - TOL 






J 

109 

11 0 


ALNNUM 55 (2 * PR) «« 2 « S «« 2 

4 4 

* 

C « pp S 4 RR 

2 4 

c *• 

J 

no 



1? 






J 

111 



ALNOEN 55 (2 * PR) <H» 2 * s ** 2 

- 4 

» 

C « BP * S 4 RR 

2 4 

c «« 

J 

112 



12 






J 

113 



60 RATLN = ALOG (ALNNUM / ALNOFN) 






J 

114 

1 15 


TNOIF = ATAN?((C ♦ 2, * RP • S),PP) 

- 

ATAN?( (C - 2, * RB 

* S) 

»PR) 

J 

115 



TNSIIM = 4TAN2((r ♦ ?, # PP * 51 

»RP1 

4 

ATAN2((C - ?, ♦ RB 

* 9) 

4RP) 

J 

116 



PTAN = -(.25 * RR / PR) • PATLN 

♦ 0. 

5 

* C * TNOIE / RP 



J 

117 



PTAN = RTAN / pp ♦ 5 # TNSUM / 1 

RP 





J 

lie 



RSTAN = 0,5 * (S * S ♦ (RR * RR 

- C 

» 

C> / (2 * RP) ** 2) 

* TNOIF 

J 

119 

120 


1- ,5 * RR « 5 / PP ♦ ((,5 * C * 

RR> 

/ 

(2 * PP) 2) * RATLN 


J 

120 



RSTAN = RSTAN / RR 






J 

121 



PS2TAN = (S *• 3 / 31 « TNSUM ♦ 

( (RP 

*«3-3*C**2* 

PR) 

/ (48 

J 

122 



1 • PR ** 31) * RATLM ♦ C • RR * 

S / 

(3 * RR •»» 2) - ( (6 • 

C « 

PR » 

J 

123 



2* 2 - 2 * C 3) / (6 « (2 * RF) 

31) » TNOIF 



J 

124 

125 


RS2TAM = PS2TAN / PP 






J 

125 



PS3T4M = (S 4 / 4) * TNOIF - 

{ (C 


pp «* 3 - C 4 * 3 * 

RP) 

/ (32 

J 

126 


PAPt 3 
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SUBROUTINE SNTAN CContinued) 


SUPPnUTlNF FMTAK' 74/74 nPT=l FTATTC FTN 4,744fi5 P1/01/P7, 13,78,34 


1 * pp 4)) • p/JTLN - TNDTF * (PR »*4-6*C**?«RR«*?*C J 1?7 
? *• 4) / {64 • PP *tt 4) - PR # S ** 3 / (1? « pB) - S • (R • C ** J 1 ?8 

32 • RP ? _ 3 » pp »« 4) / (48 * RP * RR »« 3) J 129 

13n RS3TAN = PS3TAN / PP J 130 

RS4TAN s (S •* S / {S • RR)) * TNSdM ♦ TNOIF * (5 * C * RR •* 6 » J 131 

110 » r ** 3 * pP ** 4 4 C ♦* 5 * RP •* ?) / (160 * BB ** 5 * RR ** J 132 

? 3) - PATLN * (RR *• 6 - 10 • C •* 2 * PR •* 4 4 B * C ** 4 * RP * J 133 

3* ?) / (3?0 • RR *# 2 * RR «* 5) 4 C • S ** 3 / 115 * PB •* ?) 4 S J 134 

135 4 # (C ** 3 - C * PR ** ?) / (10 * PR •* 4) J 138 

GO TO 130 J 136 

C J 137 

C FOR CAGF OF RP=TTs0.0, IF 1=J J 138 

C J 139 

140 70 TOP = C ♦ 2, • BB • S J 140 

POT = C - 2, • BR * S J 141 

IF (C ,EO, 0.0 ,AW, PB ,FO, 0,0> GO TO 130 J 142 

SPAO = -C / (?, # PP» J 143 

SPADAP = ABs(«;PAn) J 144 

145 IF (SPADAB ,LT. S) GO TO 80 J U5 

GO TO 90 J 146 

80 CONTJNUF J 147 

SUL * SBAO - TOL J 148 

SLL = SRAD 4 TOL J 149 

150 CLOGPl = ALOG{TOP / (C 4 2, * BP • SLLH J 150 

CLOGR? = AL0G((C ♦ ?, * PP • SUL) / ROT) J 151 

CLOGP = CLOGPl 4 CLOGP? J 152 

RTAN = -(,5 / PR) • CLOGP J 153 

RSTAN = (,?5 * c / BB «* ?) * CLOGP - (.5 / PB) * (2. • S - SLL ♦ J 154 

155 ISUL) J 155 

RS2TAN = -(C ** 2 / (8, * RP ** 3)) * CLOGR ♦ (C / {4. • PR *♦ ?)) J 156 

1 • (2. * 5 - SLL ♦ SuL) - (.25 / PR) • (SUL * SUL - SLL * SLL) J 157 

RS3TAU = (C ** 3 / (16. * PP #* 4)) * CLOGR - (2, * S ** 3 - SLL • J 158 

T* 3 4 SUL ** 3) / (6, * RR) - (C * C / (8. * PR *» 3) ) * ( 2 , * S - J 159 
16ff 2 SLL 4 SUL) 4 (C / (B, * BB • PR)) « (SUL * SUL - SLL * SLL) J 160 

RS4TAN s -<C ** 4 / (32, * PP ** 5)) * CLOGP - (SUL ** 4 - SLL *• J 161 

14) / (8. • PR) 4 (C / (12, • B0 # BR)) * (2, # S #* 3 - SLL *♦ 3 ♦ J 162 

2 SUL *» 3) - C ** 2 * (SUL ** 2 - SLL * SLL) / (16. * RP 3) 4 C J 163 

3 ** 3 * (2, * S - SLL 4 SUL) / (16. * RP 4) J 164 

165 50 TO 130 J 165 

90 continue j 166 

IF (APS(TOP) ,LT, IF - 9 .OP. ARS(POT) .LT, IF - P) GO TO IPO J 167 

IF (TOP ,LE, 0.0) GO TO 110 J 168 
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Cn 


SUBROUTINE SNTAN (Continued) 


SURPOUTINF «;N'TAN 74/74 OPT = l STATIC 


FTN 4.7+4B5 B1/01/P7. 13. 18.34 PAGE 5 


IF (PCT .LE. 0.0) GO TO 110 J 169 

170 100 CLOGR = ALOGITOP / POT) J 170 

RTAN = -(1 / PP) * CLOGR J 171 

RTAN s RTAN / ? J 172 

RSTAN = (.25 * C / PR ** 2) * CLOGP - S / HP J 173 

RS2TAN = -(C *• 2 / (8 * RB •* 3)) * CLOGR ♦ C * S / (2. * BB ** 2 J 174 

175 1) J 175 

RS3TAN * (C #• 3 / (16. * BB ** 4)) • CLOGR - S ** 3 / (3. * BB) - J 176 

1 S * C »* 2 / (4. • PR ** 3) J 177 

RS4TAN = «(C ** 4 / (32 * PP ** 5) ) * CLOGR ♦ 2. * C * S ♦* 3 / (1 J 178 

12 « RR ** 2) ♦ 2. * 5 * C »* 3 / (16 * BP ** 4) J 179 

180 GO TO 130 J IGO 

110 TPDRBT = TOP / ROT J 181 

IF (TPORBT .GT. 0.0) GO TO 100 J 182 

IF (TOP .LT. 0,0) GO TO 140 J 183 

IF (ROT .LT. 0.0) GO TO 140 J 184 

185 120 CONTINUE J 185 

SAWAY = S - TOL j 186 

TOP = C + 2, * BB * SAWAY J 187 

ROT » C - 2, * RB * SAWAY J 188 

CLOGP = ALOG(TOP / ROT) J 189 

190 PTAN = -(1 / PP) * CLOGP J 190 

RTAN = RTAN / 2 J 191 

RSTAN = (.25 * C / RR 2) * CLOGR - S / PR J 192 

PS2TAN s -(C «• ? / (8 # PP •* 3)) • CLOGR ♦ C * S / (2. * BB ** 2 J 193 

1) J 194 

195 RS3TAN » (C 3 / (16, * PB *• 4)) • CLOGR - S ** 3 / (3, • RR) - J 195 

1 5 * C ** 2 / (4. • PR ** 3) J 196 

RS4TAN = -(C ** 4 / (32 * PR ** 5) ) * CLOGR ♦ 2 . * C * S ** 3 / ( 1 J 197 

12 » RR «* 2) ♦ 2, * S * C •* 3 / (16 * BP *« 4) J 198 

GO TO 130 J 199 

200 130 CONTINUE J 200 

C J 201 

C WRITE STATEmfnts GO HERE IF NEEDED J 202 

C J 203 

60 TO 150 J 204 

205 140 WRITE (6,240) J 205 

150 continue j 206 

GO TO 230 J 207 

C J 208 

C FOR CASE OF RP.TT NOT 7ERO, PUT WITH HIDRANGF SINGULARITY J 209 

210 C J 210 
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SUBROUTINE SNTAN CContinued) 


SUPPnUTINF 


215 


?20 


225 


230 


235 


240 


245 


250 


SNTAN 74/74 OPT=l STATIC 


FTN 4,7+485 


81/01/27. 13.38,34 PAGE 6 


160 CONTINUE J 211 

write (6,2501 J 212 

SUL = S7ER0 - TOL J 213 

Sl,L = SZEPO + TOL J 214 

SMIOl s S - 0,5 * APSIS - SLLl J 215 

SWinP * -5 ♦ 0,5 * ARS( - S - SUL) J ?16 

4N61 e ATAN?((C ♦ 2, * PR * S),ABS(RR ♦ TT * S)1 J 217 

AN62 = ATAN2UC ♦ 2, • BR * SMIOl ), APS (RR ♦ TT * SHIOU) J 218 

ANG3P s ATAN2((C ♦ 2, * PR • SLL),ARS(RR ♦ TT * SLLl) J 219 

ANG3 = ATAN2HC - 2, * PR * S),AB5(RR - TT • S)1 J 220 

ANG4 = ATAN2MC ♦ 2. * RB » SMI02) ,APS (PR ♦ TT * SMlOPl) J 221 

ANG5 s ATAN2((C ♦ 2, • RP * SUL), APS (PR ♦ TT * SUL)) J 222 

DO 220 I » 1,2 J 223 

IF (I ,EQ. 2) GO TO 170 J 224 

AA 1(1,1) = SUL * SUL J 225 

AAl (1,2) = SUL J 226 

AA1(1,3) *1. J 227 

AAl (2,3) =1. J 228 

AA1(3,3) * 1, J 229 

AAl (2,1) » SMI02 • SMI02 J 230 

AA1(2,2) * SMI02 J 231 

AAl (3,1) s s * S J 232 

AAl (3,2) = -S J 233 

AA(1) = AN65 J 234 

AA(2) s ANG4 J 235 

AA(3) s AN 63 J 236 

CLOGP = AL0G((RR ♦ TT * SUL) / (RP - TT * S) ) J 237 

SUSP = SM1D2 J 238 

OFLS = SUL ♦ S J 239 

DELS? = SUL ## 2 - s •• 2 J 240 

DFLS3 = SUL *« 3 ♦ S 3 J 241 

DELS4 s SUL ** 4 - S ** 4 J 242 

DFLS5 = SUL ** 5 ♦ S ** 5 J 243 

DFL56 = SUL ** 6 - S *• 6 J 244 

GO TO 180 J 245 

170 CONTINUE J 246 

AAl (1,1) = S * S J 247 

AAl (1,2) = S J 248 

AA] (1,3) = 1, J 249 

AAK2.3) = 1. J 250 

AAl (3,3) = 1 , J 251 

AA1(?,1) = SMini • SMIOl J 252 
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suppoutime: 


255 


260 


265 


270 


27S 


280 


265 


290 


SUBROUTINE SNTAN (Continued) 


f^MTAN 74/74 0PT=1 <>TATIC 


FTN 4,7*4P5 


ni/01/?7, I3.?fl.34 


AAl <?,?) = 5MIP1 J 253 

AAl(3»l) = SI.L * 5LL J ?54 

AAl (3»?) = 5LL J 255 

AA n ) S ANGl J 256 

AA(2) = ANP2 J ?57 

AA(3) = ANG3P J 258 

CLOGP = ALOG(APS((PP ♦ TT * S) / (RR + TT * 5LL))) J 259 

5U5F = SPini J 260 

DELS = S - 5LL J ?61 

OFLS2 = S ** 2 - SUL ** 2 J 262 

OELS3 = 5 ** 3 - SLL •• 3 J 263 

0FLS4 = S •* * - 5LL ** 4 J ?64 

0EL55 = S ** 5 - SLL ** 5 J 265 

DELS6 = S ♦* 6 - SLL ** 6 J 266 

180 CONTINUE J 267 

call SIPFO (AAJ ,3,AA,l,nFTFRV«IPIVnT,3,ISCALF) J 260 

Cl r AA(l) J 269 

C2 = AA(2) J 270 

C = AA(3) J 271 

CONO = (C * TT * TT - C? « PP * TT ♦ Cl * RR * PR) / (TT *• 3) J 272 

CONI = (C? 4» TT - Cl ♦ PR) / (TT * TT) J 273 

CONll = 0,5 * Cl / TT J 274 

C0N2 = (C * TT * TT - C2 * PR * TT ♦ Cl * RP * RR) / (TT ** 3) . J 275 

CON3 = (C * PR * TT * TT - C2 * RR * RP * TT ♦ Cl * PR •• 3) / (TT J 276 

1 ** 4) J 277 

CON21 s C2 / (2 * TT) - Cl « RP / (2 * TT * TT) J 270 

C0N4 s: (C * PR * RR * TT * TT - C? * PR ** 3 * TT ♦ Cl * RR *• A) J 279 

1/ (TT ** 5) J 280 

CONS s 4. * C? * TT ** 3 - 4, * Cl * RR * TT 2 J 281 

C0N5 = CONS / (1? * TT ** 4) J 28? 

C0N6 = ( - C « RR * TT • TT ♦ C2 * RR * RR * TT - Cl * RR •* 3) / J 283 

1 (TT ** 4) J 284 

C0N31 = (C # TT ** 3 - C2 * RR * TT ** 2 ♦ Cl * RR ** 2 * TT) / (2 J 285 
1 * TT ** 4) J 206 

CON32 = Cl / (4 * TT) v) 287 

C0N8 = 20. * (C * TT 4 - C2 * RP * TT 3 ♦ Cl * RP ** 2 * TT J 288 
1** 2) / (60 * TT *• 5) J 209 

CONR = (C * RP ** 2 * TT 2 - C2 • RP ** 3 * TT ♦ Cl * RR ** 4) J 290 
1/ (TT •» B) J 291 

CONIO s: C * RR ** 3 * TT *« 2 - C? » RR ** 4 • TT * Cl « RR ** 8 J 292 

CONIO = CONIO / (TT *« 6) J 293 

C0N41 = (C2 « tT - Cl « RR) / (4 * TT •* 7) J 294 


PAGE 7 
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SUBROUTINE SNTAN CContinued) 


PIJRPOUTINF SNTAN 74/7A DPT=1 STATIC FTN ♦,7*4fl‘5 13,18,3* 


?95 C0N42 = ( - C • PR * TT ♦ C2 ♦ PP ** ? * TT - Cl • RP *« 3) / J 295 

1 (2 * TT ** *) J 29ft 

CONA = (C * PP *♦ * » TT •* 2 - C2 * PR ** 5 • TT ♦ Cl * RP •« 6) J 297 
1/ (TT *» 7) J 298 

CONR = (C2 * TT - C! * PP) / (5 « TT ** 2) J 299 

300 CONC s ( - C * PR * TT 2 ♦ C2 * PP •• 2 * TT - Cl * PR ** 3) / J 300 

1 (3 * TT *• *) J 301 

COND = CONC » PR ** 2 / (TT •* 2 / 3) J 302 

CONE = (C * TT ** 2 - C2 * PP * TT ♦ Cl * PP ** 2) / (4 * TT ** 3) J 303 

CONE = Cl / (6 * TT) J 304 

305 CONG = cone » pr *« p * 2 / (TT ** 2) J 305 

TF (I ,FQ, 1) po TO 190 J 306 

IF (I ,E0. 2 ,AWn. (RP ♦ TT * SUSE) ,GT, 0,) GO TO 190 J 307 

PTAN = RTAN - CONO • CLOGP ♦ CONI » DELS ♦ CONI 1 * OELP? J 308 

RSTAN = R5TAN - C0N2] ♦ DFLS2 ♦ CON2 • PELS - CON3 * CLOGR *01 * J 309 
310 1DFLS3 / (3 * TT) J 310 

PS2TAN = P52TAN - CON4 * CLOGP ♦ C0N5 * DELF3 ♦ CON31 * OFLS2 ♦ CO J 311 
1N32 * DELS* ♦ C0M6 * PELS J 312 

RS3TAN = RS3TAM - C0N41 * DELS* ♦ CONP • 0FLS3 ♦ CON4? * DELS2 ♦ C J 313 
10N9 * OELS - CONIO * CLOGR ♦ Cl * DELS5 / (5 * TT) J 314 

315 RS4TAN = RS4TAN - CONA » CLOGR CONR * PFLS5 • CONE * DELS* ♦ CON J 315 

IF * DELS6 ♦ CONC * PELS? ♦ CONG * DELS2 ♦ CONO * DFLS J 316 

GO TO 200 J 317 

190 continue j 318 

RTAN = RTAN 4 CONO * CLPGp 4 CONI # PELS 4 CON)! • DELS? J 319 

320 RSTAN = RSTAN 4 CON21 » OFLS2 4 CON? • DELS - C0N3 * CLOGR 4 Cl * J 320 

1DELS3 / (3 * TT) J 321 

PS2TAN = PS2TAN 4 COM4 * CLOGR + CONS * DFLS3 4 CON31 • DFLS2 ♦ CO J 322 
1N32 * DELS* 4 C0N6 » DELS J 323 

RS3TAN = RS3TAN 4 C0M41 • DELS* ♦ CON8 * DELS3 * CON42 * DELS2 4 C J 324 
325 10N9 * DELS - CONlO * CLOGp 4 Cl * DELS5 / (5 * TT) J 325 

RS4TAN = PS4TAN 4 CONA * CLOGR 4 CON8 * 0ELS5 4 CONE * DELS* 4 CON J 326 
IF « DELS6 ♦ CONC * DELS3 4 CONG * DELS? 4 CONO * DFLS J 327 

200 CONTINUE J 328 

IF (I ,EO, 2) GO TO 210 J 329 

330 IF (I ,EQ. 1 .AND, (PR - TT • S) ,GT, 0.) GO TO 210 J 330 

RTAN = -RTAN J 331 

RSTAN = -PSTAN J 332 

RS2TAM = -PS2TAN J 333 

PS3TAN = -RS3TAN J 334 

335 RS4TAM = -PS4TAN J 335 

210 continue j 336 
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SUBROUTINE SNTAN (Concluded) 


SURpnUTINF SNTAN 74/74 OPT'l 

STATIC 

FTN 4. 7*485 

81/01/27, 13,38,34 

220 

continue 



J 

337 


GO TO 130 



J 

338 

230 

CONTINUE 



J 

339 


RR = RPR 



J 

340 


s = sss 



J 

341 


c = ccc 



J 

34? 


RETURN 



J 

343 

C 




J 

344 

. 240 

FORMAT (30X,43H0NE 

OF THE ENDPOINTS HAS 

A negative log ARG) 

J 

345 

?50 

FORMAT (30XfllH 80 

ENTERED) 


J 

34fi 


END 



J 

347- 


PAfiE 9 
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SUBROUTINE LOGS 


SUBPOUTIMF LOPS 7<i/74 0PT = 1 STATIC 


FTN 4.7*485 


01/OI/P7, 13,38.34 


I 


1 


5 


10 


15 


2Q 


25 


30 


35 


40 


SUBROUTINE LOPS (StF.n,RFLN»RESLN,RES2LN,ReS3LN) 

C 

C SUBROUTINE LOPS 

C 

C CALCULATES 1N7FPRALS OF FOPV S**N»ALOG (S*S*E*S+D) WITH 

C RESPECT TO S OVER LIMITS OF -S TO S FOR N*0,l,?f3, 

C 

C Ss PANEL SEGMFNT HALFWlOTH 

C E.D ARF calculated IN SUBROUTINE CONCAL 

C integral RESULTS ARF PELN,pESLN,RES2LN,PES3LN 

C 

C EVALUATION OF INTEGRALS PERFORMED USING MACSYMA ALGEBRAIC 

C manipulation PROGRAM OF MIT PROJECT MAC 

C IF 1=J INTEGRAL EVALUALTEO AT APPROXIMATE FNnPOINTS»*-SA«AY 
C 

COMMON /TEL/ DUM^TOl? 

REAL LATR»LA0P,Ll»L?»L3«L4 

TOL = TOL2 

RELN » 0.0 

RFSLN = 0.0 

RES2LN = 0,0 

PFS3LM = 0,0 

ss = s 

A = S»S*F*S*n 
B = S*S“E*S*n 
A = AP«;(A) 

B = APS<B) 

AA = APS(A) 

PP = APS(P) 

IF (AA ,lE. o.onoooonoi) fo to go 

IF (BP ,le. o.oononnool) go to go 

10 DISC =F«E-4*n 
OISO = SORT (APS (OlSC) ) 

OIS =F*£-?, *n 

DIS3 aF«*3-3, *n*F 

D1S4 s (E • E - 4. * D) » (F » E - n> 

OIS44 =E«*4-4, «n*F*E*2, *D*0 
niS5 aE**S-f,, *n#F«»3»fi. 

LATB - ALOG(A * P) 

LAPP a AL0G(A / R) 

IF (AA ,lf, o.nnnnnooni ) s' = saway 

IF (RB .Lf. n.OOftOnnOOU S = SAt-AY 


K 1 
K 2 
K 3 
K 4 
K S 
K 6 
K 7 
K 8 
K 9 
K 10 
K 11 
K 12 
K 13 
K 14 
K 15 
K IG 
K 17 
K 16 
K 19 
K 20 
K 21 
K 22 
K 23 
K 24 
K 25 
K 2G 
K 27 
K 28 
K 29 
K 30 
K 31 
K 32 
K 33 
K 34 
K 35 
K 36 
K 37 
K 38 
K 39 
K 40 
K 41 
K 42 


PAGE 1 


(Cont 'd) 
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SUBROUTINE LOGS (Continued) 


SIjnnniiTlMF I or-!^ 


76/74 PPT=1 ST4TTC 


FTN 4.7+4R5 


Rl/ni/27. 13,:^0.34 


45 


50 


55 


60 


65 


70 


75 


80 


PF = S « LAT9 ♦ 0.5 * E » l./'GR 



K 

43 

FSP = F ♦ 2 * S 



K 

44 

FSM = F - ? * S 



K 

45 

IF (DISC) 40.30.20 



K 

46 

?0 CONTTWllF 



K 

47 

LI = E - OISQ *2*5 



K 

40 

L? = E ♦ DISC ♦2*5 



K 

49 

L3 = E - DlSO - 2 * s 



K 

50 

L4 = E ♦ 0150 -2*5 



K 

51 

niFFLM = AL0R(L1 * L4 / L? / L3) 



K 

5? 

PFLN = RE - 4 * 5 - 0,5 * niSO * DIFFLN 



K 

53 

PESLN = 0,5 * LAfiP #$**?♦ (0,25 ♦ E * DISC / DISC) * 

DIFFLN 

K 

54 

RESLN = RESLN - 0.25 * DT^ * LADB ♦ F * S 



K 

55 

RES2LN r (S *• 3 / 3) * LATP - DI54 / (6 * DISO) * DIFFLN 

♦ 

LADP ♦ 

K 

56 

1 (DI53 /6) - 4*S** 3/9-6® DIS » S / «» 



K 

57 

RFS3LN = 0,25 • s *# 4 * LADP ♦ D1S5 / (P * DT50) * DIFFLN 

- LADP 

K 

50 

1* (DI544 /P) 4F*5*«3/6* 0.5 * S * DI53 



K 

59 

GO TO 50 



K 

60 

30 CLOGRT = AL0G(AR5(E5P / FRM)) 



K 

61 

PFLN = S * LATP - 4 * 5 ♦ F * CLOGRT 



K 

6? 

RESLN s 0,5 * s »* 2 * LAPP - 0.5 * DIS • CLOGPT * F * S 



K 

63 

PES2LN = (S ** 3 ♦ LATP ♦ D1S3 * CLOGRT ♦ (DIS4) • ((1 / 

ESP) - (1 

K 

64 

1 / FSM)) - 2 * S * DIS) / 3 - 4 « (S ** 3) / R 



K 

65 

PFS3LN = 0.25 « <; »* 4 * LADP - DTS44 « 0,?5 * CLOGRT - • 

25 

* DTS5 

K 

66 

1 * (1 / ESP - 1 / FSM) ♦f« 5**3/6* 0.5 * 5 • Dls3 



K 

67 

GO TO 50 



K 

6B 

40 TNRAT = ATAM? (FFP.OISO) - A T AN? ( FSM , D I SO ) 



K 

69 

RFLN = PF - 4 * 5 - (DISC / DISO) * TNRAT 



K 

70 

RFSLM = 0,5 « (S 2 - 0.5 * DIS) * LADP ♦ 0,5 * F • DISC 

/ DISO 

K 

71 

1* TNRAT + E « S 



K 

7? 

RFS2LN = 5 ** 3 / 3 * LATP ♦ (DIS3 / 6) * LADP - (DIS4 / 

(3 

* DISO 

K 

73 

1)) * TNRAT -4*5**3/9-2*S» DIS / 3 



K 

74 

PFS3LN = (0,25 * S 4 - DIS44 / P) • LADB ♦ 0,25 * 0155 

/ 

DISO * 

K 

75 

1 TNRAT ♦E»F«*3/6*S« DIS3 / 2 



K 

76 

50 CONTINUE 



K 

77 

GO TO 70 



K 

78 

60 CONTINUE 



K 

79 

5AVAY = S - TOL 



K 

80 

A = SAWAY * SAWAY + F * SAWAY ♦ D 



K 

PI 

B = SAWAY * SAWAY - F * SAWAY ♦ 0 



K 

R2 

A = AP«:(A) 



K 

B3 

B = APF(R) 



K 

04 


P^GE 2 
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SUBROUTINE LOGS (Concluded) 


SUPPOUTIN'E LOPS 

7^/74 

noT=l STATIC 

ETN 4,74485 

R1/01/?7. 13,?8.34 

PAGE 

t 

7n 

GO TO 10 
CONTINUF 



K 05 
K 86 



s = K 87 

PETUPN K 98 

END K 89 - 
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PROGRAM ZOCDETM 



PPOfiPAf^ 7nCDETM 7A/7A flPT=l 5TATTC FTN A, 7*485 81/01/27, 13,38.34 PA6F 

1 


OVFRLAY (WIMGTL,2«0) 

L 

1 



PROGRAM 20CDFTM 

L 

2 



DIMENSION YY(2), FV(2)» FW(2)« nznX(AOO), XXrr(2fl), WOU(20) 

L 

3 



DIMENSION X3CA(?2), ALOC(?2,l), HAD, SS(AI,D« 551 (41,11 , 552(4 

L 

4 

s 


11,11, S2(22,ll, 53(22,11, DELY(22,11, H(2P), PSUM(41,1) 

L 

5 



DIMENSION Z0CM(411, 70CK(301, P0UM(41,11 

L 

6 



DIMENSION 7UPA(411, 2L0A(411, PTX(A11, 7MC(4D 

L 

7 



DIMENSION WK(A551 

L 

8 



COMMON /ALL/ POT,M,PETA ,PTFST,QTEST,TBL5CW (501 ,0 (400 1 ,PN ( AOO 1 ,PV ( 

L 

9 

10 


lAOOl ,S (AOOl ,PSI (4001 ,PHI (501 ,ZH(501 ,NSSW 

L 

10 



COMMON /TOTHRF/ CIR(4001 

L 

11 



COMMON /CCRRDD/ CHORD ( 50 } , XTE ( 50 ) ,KB IT , TSP AN ,TSPANA 

L 

12 



COMMON /IN5UP23/ ApSI , APHI ,XX,YYY,ZZ,SNN,TOLC 

L 

13 



COMMON /JK2/ PCTX(501,PCT7(501,N7S,JCTL,JSLP 

L 

14 

15 

C 


L 

15 


C 


L 

1ft 


r 

PART 3 - compute Z/C VERSUS X/C 

L 

17 


c 


L 

18 


c 


L 

19 

?o 

c 

THE tolerance SET At THIS POINT IN THE PROGRAM MAY NEED TO BE 

L 

20 


c 

CHANGED FOR COMPUTERS OTHER THAN THE COC 6000 SERIFS 

L 

21 


c 


L 

22 


c 


L 

23 



WRITE (6,280) 

L 

24 

25 


TOLC = (ROT * 15. E - 05) 2 

L 

25 



PI = 4, * ATAN (1 .1 

L 

2ft 



PAD = 180, / PI 

L 

27 



177 = 1 

L 

28 



NNV = TRL5Cw(I77) 

L 

29 

30 


00 30 NV = 1,M 

L 

30 



D7DX(NV1 = 0, 

L 

31 



17 = 1 

L 

32 



NNN = TPLSCw(I7) 

L 

33 



DO 20 NN = 1,M 

L 

34 

35 


APHI = ATAN(PHI (17) ) 

L 

35 



APSI = PSI(NN) 

1. 

36 



XX = PV(NV) - PN(NN) 

L 

37 



YY(1) = 0(NV) - 0(NN) 

L 

38 



YY(2) = 0(NV) ♦ 0(NM) 

L 

39 

AO 


77 = 7H(I72) - 7H(I7) 

L 

40 



SMN a S(NN) 

L 

41 



no 10 I = 1,2 

L 

42 


(Cont'd) 



PROGRAM ZOCDETM (Continued) 



PROGRAM 

70CPFTM 74/74 0PT=1 STATIC 

FTN 

4.7*485 

81/01/27. 13,38.34 

PAGE 




YYY s YY(I) 



L 

43 





CALL INFSUfi (POTfFVd) ,FW(T) ) 



L 

44 


45 



APHI « -APHI 



L 

45 





APSI = -APSI 



L 

46 




10 

continue 



L 

47 





FVN * FW(1) ♦ FW(2) - (FV<n + FV(2)) 

• PHUI77) 


L 

46 





D70X(nv) = n7rx(NV) ♦ fvn * cir(nn» / 

12.5663704 


L 

49 


50 



IF (NM ,LT. NNN ,OR, NN ,F0, M) GO TO 

20 


L 

50 





17 = 17 * 1 



L 

51 





NNN = NNN ♦ TPLSCW(I7) 



L 

52 




20 

CONTINUE 



L 

53 





IF (NV ,LT. NNV .OP, NV ,FQ. M) GO TO 

30 


L 

54 


55 



177 = IZ7 ♦ 1 



L 

55 





NNV = MNV ♦ TPLSCWH77) 



L 

56 




30 

CONTINUE 



L 

57 



C 





L 

58 



C 





L 

59 


60 

c 


INTEGRATE 07/nX TO OBTAIN 7/C VERSUS 

X/C AT THE 

VAPTOUS Y 

LOCATI L 

60 



c 





L 

61 



c 





L 

62 





IF (JSLP .NF, n GO TO 40 



L 

63 





PUNCH 240# (07nX(NN),NN = 1,M) 



L 

64 


65 


40 

CONTINUE 



L 

65 





REWINO 10 



L 

66 





IF (JCTL .FO. 0) GO TO So 



L 

67 





CALL PSFUPO 



L 

68 




50 

continue 



L 

69 


70 



LA = 1 



L 

70 





LB = 0 



L 

71 





no ?30 I = ItNSSW 



L 

72 





IN = TPLSCW(l) 



L 

73 





CPHi = rns (ATAK(PHi n > n 



L 

74 


75 



IF (I ,EO, 1) GO TO 60 



L 

75 





LA = la ♦ TPLSCWd - 1) 



L 

76 




60 

Lfl = LP ♦ TBLSCWdl 



L 

77 





DO 70 J = LA.LP 



L 

78 





N = J - LA + 1 



L 

79 


80 



wnu(N) = -n70X(J) 



L 

80 





XXCC(N) = (M - n,?S) / IN 



L 

81 





KrJH*] .lA-J 



L 

82 





X3C4 (K) = PV ( J) * HFTA 



L 

83 




70 

ALOC(K) = -r;7nx(J) 



i. 

84 



a^ 

Oa 
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PROGRAM ZOCDETM (Continued) 


PROr;PAM 7nC0FTP 74/74 PPT=1 STATIC 


FTM 4.7»4P5 ni/01/?7, 13.:^R,34 


85 


90 


95 


100 


1 05 


no 


115 


120 


125 


Y = 0(LA) / POT 

L 

85 

WRITE (6«250) 0 (L A ) , Y « CHORD ( 1 1 

L 

86 

WRITE (6.290) 

L 

87 

WRITE (6.360) (WOU(IJ).IJ = l.IM 

L 

08 

write (6.300) 

L 

09 

WRITE (6.360) (XXCC(IJ).IJ * l.IN) 

L 

90 

KI = IN ♦ 2 

L 

91 

K? * IN ♦ 1 

L 

92 

ALOCd) = AL0C(?) 

L 

93 

ALOC(Kl) * ALOC(K?) 

L 

94 

X3C.4(1) = XTE(T) 

L 

95 

X3C4(K1) = XTF(I) ♦ CHORD(I) 

L 

96 

Dl = 0, 

L 

97 

D? - 0, 

L 

98 

DO 80 L s 1.41 

L 

99 

T(L) = XTE(I) + CHORD(I) * (L - 1) * ,025 

L 

100 

IW s 0 

L 

101 

CALL SPLINE (??,1 , 4 1 ,K 1 , 1 , 4l ♦ X3C4 , ALOC . T . A .SS . SSI .SS? , S2 ♦ S3 ,DELY ,H 

L 

102 

.iW.m.Op.i.PSUM) 

L 

103 

DO 90 L = 1,40 

L 

104 

K = 4? - L 

L 

105 

J - 41 - L 

L 

106 

PSUM(K) = PSIJK(J) 

L 

107 

PSUM(l) = 0, 

L 

108 

ALPIN = ATAN (PSIIM (41 ) / CHOROd)) * PAD 

L 

109 

WRITE (6.330) ALPiN 

L 

no 

WRITE (6.310) 

L 

111 

IF (JCTL .EO, Z) 00 TO 100 

L 

112 

WRITE (6.320) 

L 

113 

60 TO 110 

L 

114 

continue 

L 

115 

WRITE (6,350) 

L 

116 

CONTINUE 

1. 

117 

DO ISO L = 1,41 

L 

118 

K = 42 - L 

1 

119 

XOC = 1, ♦ (XTF(T) - T(K)) / CHORO(I) 

L 

120 

70C = PSIJM(K) / CHORD(I) 

L 

121 

ZOCM(L) = -70r 

L 

122 

X = xnc * CHORD (T) 

1 

123 

70CPP = ZOC » CPHI 

L 

124 

7MC(L) = -70CPP 

L 

125 

Dl TZPP = PSUM(K) CPHI 

L 

126 


PARE 3 
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PROGRAM ZOCDETM (Continued) 


PROGRAM 70rnFTM 74/74 nPT=l STATIC 


FTN 4.7*48B 81/01/?7, 13,38.34 PAGE 4 


IF (JCTL .NF. ?) GO TO 1 ?0 I 137 

CALL rsIUNI (50,N7S,1 ,1,1 ,PCTX,PCTZ»XnC,THK, - 1,WK) ‘L 1?8 

ZOCU = 70CPR - THK L 128 

130 ZOCL s 70CPR + THK L 130 

ZUP = 70CU * CHORD r I) L 131 

ZLO = 70CL * CHORDm L 132 

ZUPA(L) = ZOCU L 133 

7L0A(L) = ZOCL L 134 

135 120 CONTINUE L 135 

IF <JCTL ,EQ, ?) GO TO 130 L 136 

WRITE {6,2601 XOC,ZOC,ZOCPR,X,PSUM |K) ,0LT2PR L 137 

GO TO 140 L 138 

130 CONTINUE L 138 

140 WRITE (6,340) X0C,Z0C,ZOCPR,70CU,70CL,XtP5UH (K) ,Dl.TZPR,ZUP,7LO L 140 

140 CONTINUE L 141 

150 CONTINUE L 142 

WRITE (6,370) L 143 

DO 160 L = 1,18 L 144 

145 ZOCK(L) = ZOCHd.) L 145 

160 CONTINUE L 146 

DO 170 L « 20,30 L 147 

I L = 2 • L - 19 L 148 

ZOCK(L) = ZOCN(LL) L 149 

ISO 170 CONTINUE L 150 

IF (JCTL .ME, 2) GO TO 200 L 151 

DO 180 L = 1,21 L 152 

LL = 1 ♦ (L - 1) * 2 L 153 

7UPA(L) = ZIIPA(LL) L 154 

15S ZLOA(L) = 7LOA(LL) L 155 

100 PTX(L) = 0,05 * (FLOAT(L - 1)1 L 156 

WRITE (10,270) (PTX(L),L = 1,21) L 157 

WRITE (10,270) (7UPA(L),L = 1,21) L 158 

WRITE (10,270) (7L0A(L),L = 1,21) L 159 

160 DO 190 L = 1 ,21 L 160 

7UPA (L ) = -7IIPA (L) L 161 

190 7LOA(L) = -7L0A(L) L 162 

CALL TNFOPLf (0,21 ,PTX,1 ,7UPA,1 ,0.,1 ., - .5 , 0 .5 , 0 , 0 , 3 , 3HX/C , 1 2 , 1 2H L 163 

17/C COq (PHI ) ,0) L 164 

165 THET =0. L 165 

XL = L 166 

YL = P. L 167 

HT = 0,3 L 168 


166 


PROGRAM ZOCDETM (Continued) 


PROGRAM 70CnETM 74/7A nPT=l STATIC 


FTN 4.7*485 81/01/P7. 1:1,38,34 PAGE 5 


CALL MOTATF ( XI , YL t HT , 6HCH0PD = , THFT , 6 ) L 169 

170 Yl = 7, L 170 

CALL NOTATF (XL ,YLfHT,6HY/P/?=,THET,6) L 171 

XL = P. L 17? 

YL - R, L lt3 

CALL NUMBER ( XL ♦ YL ♦ HJ .CHORD ( I ) »THET * 3 ) L 174 

175 YL = 7, L 175 

CALL NUMBER (XL .YL»HT*Y,THFT,4) L 176 

CALL INFOPLT < 1 ,? 1 «PTX , 1 , 7L0A , 1 *0 , , 1 . * - .5* 0.5 1 0 ,0 , 3, 3HX/C . 1 ?» 1?H L 177 

IZ/C COf:(PHI),0) L 178 

BOO CONTINUE L 179 

160 IE (JCTL ,NE, 1) GO TO ??0 L IBO 

no 210 L = 1.41 L 181 

210 PTX(L) = 0.025 * FLOAT(L - 1) L 182 

CALL INFOPLT ( 1 , 4 1 ♦ PTX ♦ 1 . 7MC . 1 , 0 , » 1 , , - .5.0.5,0,n.3*3HX/C,l?,l?HZ L. 183 

1/C COS(Phl) ,0) L 184 

185 THET =0. L 185 

XL = 5,5 L 186 

YL » P, L 187 

HT - 0,3 L 188 

CALL NOTATE ( XL . YL »HT . GHCHOROe , THFT » 6 ) L 189 

190 YL = 7, L 190 

CALL NOTATE ( XL . YL » HT . 6HY/P/2* .THFT « 6 ) L 191 

XL = P, L 19? 

YL = P, L 193 

CALL NUMBER ( XL . YL .HT . CHORD ( I) .THFT . 3 ) L 194 

195 YL = 7. L 195 

CALL NUMBER ( XL . YL .HT . Y . THFT .4 ) L 196 

220 CONTINUE L 197 

WPITF (10.270) (70CK(L).L = 1.30) L 198 

230 continue L 199 

200 end file 10 L 200 

REWIND 10 L 201 

C L 202 

240 format (PFIO.6) L 203 

250 format (35X,?HY=,Flfl.4.11X.6HY/P/2=.F10,4,llX.6HCHOPD=,F10,4//) L 204 

205 260 format ( ?3X ,F9 , 4 .5 (5XF9 . 4 ) ) L 205 

270 FORMAT (7F10.6) L 206 

280 format ( 1H1 ,5*^X,?OHLOCAL FlFVATION DATA///) L 207 

290 format (41X,47H8LOPFS,D7/nx.AT SLOPE POINTS, FROM FRONT TO RFAP/) L 208 

300 FORMAT (42X , 4HHCnPPFSPONnTN6 X/C LOCATIONS FROM FRONT tO REAR/) L 209 

210 310 format ( ////4QX , 15HLOCAL FlEVATICN//) L 210 
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PROGRAM ZOCDETM (Concluded) 


215 


220 


PROGRAM 70CPETH 74/74 0PT=1 STATIC 


FTN ♦. 7*485 81/01/27. 13,38,34 


320 FORMAT (29X /C ♦ 1 1 X , 3H7/C ,5X, 1 3H (2/C 1 COS (OIHI *5X ,7HOFLT A X,7X*7H 
IDELTA 7»3Xfl5H(DLT 7)COS(niH)/) 

330 FORMAT (///34X,35HCHORO ANGLE OF ATTACK IN X-7 PLANE* ,F9.4 ,7H0EGRE 
IFS) 

340 FORMAT (4X,F9,4,9(4x,F9,4) ) 

350 format (0X»3HX/C,9X,3H7/C,4X,12H7/C COS (OIH) , 1 X, 15H7/C US COS(OIH) 
lflX,15H2/C LS COS(DIH) ,1X,7H0ELTA X,4Xf7HOELTA Z,1X*15H(0LT 71COSI 
20IH) ,1X*13H7 US COS (OIH) , 1 X » 1 3H7 LS COS(OIH)/) 

3F0 FORMAT (5Xf20F6.4) 

370 FORMAT (IHI) 

ENO 


L 211 
L 212 
L 213 
L 214 
L 215 
L 216 


L 219. 
L . 220 
L',221- 
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CX3 


SUBROUTINE INFSUB 


SURPOUTIMF 

1 

5 

ID 

15 

20 

25 

30 

35 

40 


Tfipsur 7A/74 OPT = l «;TATlr 


FTN 4,7*4P5 13,3fl,34 PAGE 1 


SUPROIITINE TMFFIIP ( ROT t FV 1 1 EW I ) 

CnwwOM /1NGHPP3/ P«^I1»APHT1 »XXXtYYY»777tGNN.7nLRNr 
FC = roGtPSII) 

F? = GIN(PSII) 

FT = FS / FC 
FPC = COS(APHII) 

FPS = RIK(AphtT) 

FPT = FPS / FPf 
FI = XXX ♦ SWM * FT * FPC 

F? s YYY ♦ GK'N * FPC 

F3 » 777 ♦ SK'N * FPS 

F4 = XXX - SMM • FT * FPC 

F5 = YYY - SNN * FPC 
F6 = 777 * SNA' * FPS 

FFA = (XXX ** ? + (YVY * FPS) *« ? ♦ FPC ** ? * ((YYY * FT) ** ? * 
1 (777 / FC) **?-?,* XXX « YYY * FT) - 2, * 777 * FPC * (YYY * 
2FPS ♦ XXX * FT * FPS) ) 

FFP = (FI * FI ♦ F? * F? + F3 » F3) «* .5 

FFC * (F4 * F4 ♦ F5 » FS ♦ F6 * F6) ** ,5 

FFn = FS * FS ♦ FG * Ff. 

FFE e F2 « F? ♦ f3 * F? 

FFF = (FI • FPC * FT ♦ F? » FPC ♦ F3 • FPS) / FFR - (F4 * FPC * FT 

1 ♦ F5 * FPC ♦ F6 * FPS) / FFC 


C THE tolerance SET At THIS POINT IN THE PROGRAM MAY NFFO TO PE 

C CHANGFO FOR COMPUTERS OTHFP THAM THE CDC GOOO SFRIFS 

C 
C 

IF (APS(FFA) ,LT, (ROT » 15. E - 5) 2) GO TO 10 

FVONE s (XXX * FPS - 777 * FT * FPC) • FFF / FFA 
FWONE = (YYY • FT - XXX) « FFF / FFA • FPC 
GO TO 20 
10 FVONF = 0. 

FWONE = 0. 

C 

20 IF (APS(FFD) ,LT. TOLPNC) GO TO 3(1 
FVTWO = F6 * (1, - F4 / Fpo) / FFO 
FWTHO = -F5 * (1, - F4 / FFC) / FFO 
60 TO 40 
30 FVTWO = 0. 

FWTWO = 0. 


M 

M 

H 

M 

M 

M 

M 

M 

H 

M 

M 

M 

M 

M 

M 

H 

M 

M 

M 

M 

M 

H 

M 

M 

H 

M 

M 

M 

M 

M 

M 

M 

M 

M 

M 

M 

M 

M 

M 

M 

H 

M 


I 

P 

3 

4 

5 
G 
7 
ft 
R 

10 

11 

12 

13 

14 

15 

16 
17 
le 
IR 
20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 


(Cont ’d) 



SUBROUTINE INFSUB (Concluded) 


SUPPOUTIMF TMFSUP 74/74 (1PT = 1 STATIC 

FTN 4.7+4P5 

«l/01/?7. 13,3fi.34 

page 

2 

C 


H 

43 



40 IF (APS(FFE) ,LT. TOLPNC) PO TO 50 


M 

44 



FVTHPF = -F3 « (1. - FI / FFP) / FFE 


M 

45 



FWTHRF s F2 * (1. - PI / FFP) / FFE 


M 

46 



60 TO 60 


M 

47 



50 FVTHPF = 0, 


H 

46 



fhthpf = 0. 


M 

49 



C 


M 

50 



60 FVI = FVONF 4 FVTWO ♦ FVTHPF 


H 

51 



FWI a FWONF ♦ FwTWO ♦ FWTHPF 


H 

52 



RETIIPN 


M 

53 



END 


M 

54- 
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ON 


170 


SUBROUTINE SPLINE 


SUflPOUTIMF 

spline 74/74 0PT=1 STATIC FTN 4,7*4B5 81/01/?7, 13,:ifl,34 PAGE 

1 

SUBROUTINE SPL INE (MNPTStPN’CVS,MHAX,N»NCVS»M,X, Y*T»PROXIN,SS*SSl ,S 

N 

1 


lS2«S?,S3»DELY,H,IW.ni,n?,KAP.PSUH) 

N 

2 


dimension TH(S0)t nFLH(S0,l)» CT(50)* TH2(50). OFLSOH(50), ST2{S0 

N 

3 


1«U 

N 

4 

5 

DIMENSION PSUH (MMAX*MNCVS) 

N 

5 


DIMENSION X(MNPTS), Y (MNPTS fMNCVS) ♦ T(MMAX)* PELV (MNPTSf MNCVS) , S 

N 

6 


12(MNPTS»MNCVS) » S3(MNPTS»MNCVS) , SSI (MMAji,MNCVS) » SS (MMAX »MNCVS ) , 

N 

7 


2H(MNPT5>* SS2(MMAX»MNCVS1 , PROX IN (MNCVS) , DELSOYIBO)* H2(50)f C(50 

N 

B 


3)* n(S0) 

N 

9 

10 

DIMENSION Dl(NCVS), D2(NCVS»t KAB(NCVS) 

N 

10 


IF (iw) 90»io,gn 

N 

11 


10 N1 = N - 1 

N 

12 


IH = 2 

N 

13 


DO fiO K = 1»MCV5 

N 

14 

15 

DO 20 I = l»Ml 

N 

15 


H(I) = X(I * 1) - X(I) 

N 

16 


II * I ♦ 1 

N 

17 


DELY(IfK) s (Y(IT»K) - Y(1,K)) / H(I) 

N 

Ifl 


20 C(I) s H(I) 

N 

19 

20 

DO 30 I = 2.N1 

N 

20 


H2H) * (H(I - 1) ♦ Him * 2. 

N 

21 


OFLSOY(I) = (DFLYlIfK) ' DELYII - 1»K)) * 6. 

N 

2? 


30 continue 

N 

23 


IF (KAB(K) .EG, 0) GO TO 40 

N 

24 

25 

H2(l) = ?• 4 HIU 

N 

25 


H2(N) = 2. * H(Nl) 

N 

26 


DELSQY(l) = 6. * (DFLYlltK) - 01(K)) 

N 

2,T 


DELSQY(N) = inPtK) - DELY(Nl»K)) * 6. 

N 

28 


GO TO SO 

N 

29 

^0 

40 H2(l) = 1.0 

N 

30 


H2(N> r 1,0 

W 

31 


cm = 0.0 

N 

32 


HlMl) a 0.0 

N 

33 


DFLSOYd) = n.o 

N 

34 

35 

DELSOY(N) = 0,0 

N 

35 


50 call TPIMAT (H,H?,C,nFLSOY,n,N) 

N 

36 


DO 60 1 = l.N 

N 

37 


60 S2(I,K) = D(I) 

N 

30 


MINI) = C(Nl) 

N 

39 

40 

DO 70 T = l.Nl 

N 

40 


II = T ♦ 1 

N 

41 


70 S31I,K) = (S?(TI,K| - SPlI.Kn / H(D 

N 

42 
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SUBROUTINE SPLINE (Continued) 


SURROUTINF SPLIMf 74/7* OPT=l «;T4TIC FTM *,7**RS ni/0]/?7. 13,!<fl.3* 



BO 

continue 


N 

*3 


90 

continue 


N 

** 

*5 


J 2 n 


N 

*5 


ibn 

J = J ♦ 1 


N 

*6 



I s 1 


N 

*7 



IF (TtJ) - X(D) 1 * 0 . 170, no 


N 

*8 


no 

ir (T(J) - X(N)) 130,150,1*0 


N 

*9 

SO 

12,0 

IF (T JJ) - X{ln 160,170,130 


N 

50 


130 

I = I 4 1 


N 

^1 



GO TO 120 


N 

52 


1*0 

continue 


N 

53 



PPINT 250, J 


N 

5* 

55 


PRINT ?60» (X(I) ,I = 1,N) 


N 

55 



PRINT 260, (Y(I.T) .1 = 1 ,N) 


N 

56 



GO TO IRO 


N 

57 


150 

I = M 


N 

58 


160 

continue 


N 

59 

60 


IW = -1 


N 

60 



1 = 1-1 


N 

61 


170 

no 180 K = l.NCVS 


N 

62 



HTl = T(J) - X(H 


N 

63 



11 = I 4 1 


N 

6* 

65 


HT? = T(J) - X(TT) 


N 

65 



PROD = HTl » HT? 


N 

66 



SS2(J,K) = S2(I,F) 4 HTl * S3(I,K) 


N 

67 



DELSQ5 = (S2(T,K) 4 <;2(TT,K) 4 SS2{J,K)) / 6, 

N 

68 



SS(J,K) = Y(I,K) 4 HTl OELYd.K) 

4 PROD * PFLSQS 

N 

69 

70 


SSKJ.K) = nFLY(T»K) 4 (HTl 4 HT2) 

* DELSOS 4 PROP * RRdtK) / 6,0 

N 

70 


180 

CONTINUE 


N 

71 


190 

CONTINUE 


N 

72 



IF (J ,LT. M) RO TO 100 


N 

73 



Ml = N - 1 


N 

7* 

75 


no 2*0 K = l.NCVS 


N 

75 



DO 200 I = l,*'l 


N 

76 



TH{T) = T(I 4 1) - T(T) 


N 

77 



IT = T 4 1 


N 

78 



DELH(I,K) = (SS(TI,K) - SSd.Kn / 

TH(I) 

N 

79 

80 


CTd) = THd) 


N 

80 


200 

CONTINIlF 


N 

81 



no 210 T = 2, Ml 


N 

82 



TH2d) = dHd -1)4 THd) ) * 2, 


N 

83 



DFLSQH(I) = tnPLHd.K) - nFLH (I - 

UK)) * 6. 

N 

8* 


PARF ? 
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SUBROUTINE SPLINE (Concluded) 


SURPOUTINF 

SPLINE 74/74 OPT=l STATIC 

FTN 4,7+485 81/01/27. 13,38.34 

PAGE 

85 

210 

CONTINUE 

N 

85 




TH2(U = TH2(M) « 1. 

N 

86 




CTCn * 0 

N 

87 




TH(M1> « 0 

N 

88 




OELSQH(l) « OELSOH(M) » 0. 

N 

89 


90 


CALL trimat (TH*TH2,CT*nFLS0Hf0tM) 

N 

90 




00 220 I ■ 1,M 

N 

91 




ST2(I,K) = Dn» 

N 

92 



220 

continue 

N 

93 




TH(Ml) * CT(Ml) 

N 

94 


95 


PROXIN(K) = 0,0 

N 

95 




DO 230 I = 1,M1 

N 

96 




II = I ♦ 1 

N 

97 




PROXINfK) » PROXIN(K) ♦ ,5 • TH(I) * {SS(I,K> 

♦ Ssni.K)) - TH(I) N 

98 




1** 3 * (ST2(I,K) ♦ ST2(II,KM / 24. 

N 

99 


100 


PSUMd.K) = PROXTN(K) 

N 

100 



230 

continue 

N 

101 



240 

CONTINUE 

N 

102 




RETURN 

N 

103 



C 


N 

104 


105 

C 


N 

105 



250 

FORMAT <I4,?4HTH ARGUMENT OUT OF RANGE) 

N 

106 



260 

FORMAT nOFlO.3) 

N 

107 




END 

N 

106- 
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SUBROUTINE TRIMAT 


SUBPOUTINF 

1 

5 

10 

15 

20 


TRIMAT 74/74 OPT*l STATIC 


FTN ♦, 7*405 


81/01/?7. 13,38,34 PARE 1 


subroutine TPTMAT <A,B*C,n,TtN) 

DIMENSION A(l), B(Ut Cfl), 0(1), T(l)* W(50), SV(50), 6(50) 

THIS ROUTINE SOLVES THE TPlOIARONAL (EXCEPT TWO ELEMENTS) MATRIX 

W(l) = B(l) 

SV(1) = C(l) / fl(l) 

6(1) = 0(1) / W(l) 

NMl = N - I 
DO ?0 K = 2,N 
KMl = K - 1 

W(K) s B(K) - A(KMl) * SV(KKI) 

IF (K ,EQ, N) (?0 TO 10 
SV(K> s C(K) / W(K) 

10 G(K) = (D(K) - A{KK1) * (i(KM1)) / W(K) 

20 continue 

T(N) s 6(N) 

DO 30 K = IfNMl 

KK = N - K 

T(KK) s G(KK) - SV(KK) * T(KK + 1) 

30 continue 
return 

ENf' 


0 1 
0 2 
0 3 

0 4 

0 5 

0 6 
0 7 

0 8 
0 9 
0 10 
0 11 
0 12 
0 13 

0 14 

0 15 

0 16 
0 17 

0 18 
0 19 

0 20 
0 ?1 
0 22 
0 23- 
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